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yet | aa 
R/W PS 


CR 
BUF ~ CHECK 
SND- CHECK 
GENREQ 


? 
SATSSSO5 - SATS SYSTEM SERVICE TESTS suct S.C.) 16-SEP-19 0:46:1 AX/VMS Macro V04- Page 1 
yous800 8 “SEP- 21386 t:38s49 UETPSY.SRCJSATSSSOS.MAR; 1 : (1) 


af Lf TATSS5R3 ~ SATS SYSTEM SERVICE TESTS (SUCC S.C.) 


; eusisegnenpenequnsesnqueondobeseneteennenensebeonessensseencesseuseeoeosesees 


COPYRIGHT («) 1978, 1980, 1982, 1984 BY 
DIGITAL a ul TPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND gd Lt 
ONLY IN ager DANCE WITH THE TERMS OF SUCH bicen SE_ AND WITH THE 
INCLUSION OF THE ABOVE Sgt NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


:* 2 
*® ® 
-® e 
: * 
*® w 
:® ® 
:@ ® 
*® a 
:® ® 
: ® 
:® TRANSFERRED. » 
:* * 
:* ® 
: * 
** * 
*® 2 
*® ww 
*® ® 
:* * 
:@ * 
® ® 


S 


THE gt ory phe IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
ooRPORAt ion. NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


; PIS PPT P PSP it titi iiiiiiiitiiiiiiiiiiig) 
FACILITY: SATS SYSTEM SERVICE TESTS 


ABSTRACT: The SATSSSOS module tests the execution of the following 
VMS system services: 


SSNDACC 


$SSNDSMB 


SOSOSOOOSOSOOOOOSOOSSOSOOOSOOOOOOOOSOSOSoOO 
OOQOOOCCOSOSSOSCSCGoCoOCCoOoCooOooOoooO: 


Oo 
ooo 


ENVIRONMENT: User mode image. 
Needs CMKRNL privilege and dynamically acquires other 


SOSSCSSOSCOSOSCOSOSOOSSOSOSOSOSOOSSOOSOSOSOSOOSOSOSCOSOSOSOSOSOOSOOOSOOOOSSOOOOOOOO 
MEN O OD NAUNE WIN OS ODNAN EWN SO OD NAN EWN OC OD NOMEN OOD NOU Ewin 


SeSe Se Oe Ge Ge Se Ge Ge Ge Ge Ge Se Ge Oe Be Se Se Se Ge Ge Ge Se Ge Ge Se Se 
> 


DAA PE PIII II III ononononononononony 3 2 


0 privileges, as neede 
$ AUTHOR: Larry D. Jones, CREATION DATE: JULY, 1978 
° MODIFIED BY: 
v03-002 PCG0001 Peter C. George 16-Feb-1981 
Add OPCMSG macro expansion 
v03-001 LDJ0001 ry D. Jones 17-Sep-1980 
Modified to siadaon Oo new build command erarsaures. 
ee 


 GQoooooococcocooooooooooooooooooooooooooo 
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SATS5305 = SATS SYSTEM SERVICE TESTS (suce $.C.) "9-3 3 SEP-1984 0:36: 19 AX/VMS 


acro V04- Pa SA’ 
v04 DECLARATIONS P=1984 AM Psy eRe igaressos.mar:1 2% cf) vor 


Hf ~SBTTL DECLARATIONS 
: MACRO LIBRARY CALLS 
4 , SACCDEF : account ing definitions 
6 SDIBDEF ; device info block offsets 
6 SEMBDEF : error log buffer 99? jn Ctons 
64 4 + aad 3 Job controller gerie nitions 
65 OPCDEF ; operator communications def. 
28 SOPCMSG 3; operator communications pessages 
6 SOPROEF ; operator message definitions 
of SPHDDEF : proc ss header A 4 6. \aittens 
8 SPRVDEF pr iv lege eet n 
0 SSHR_MESSAGES UETP,116,<<TEXT, Info >; UE PS TEXT det inition 
0 71 SSMROEF F ynbiot na mafager definitions 
00 ie SSTSDEF ; STS definitions 
38 ? SUETPDEF ; UETP aseceee definitions 
909 13 i : Equated symbols 
49444 0 4 5§ WARNING = 0 ; warning severity value for msgs 
0000001 38 4 SUCCESS = 1 ; success 
000000 ¢ 0 79 ERROR = ; 3 error ots * = 
4444 44 00 0 INFO z : information "' A etl tows 
00000004 38 1 SEVERE = 4 ; fata = = eg 
0000000 4 g , CR = 13 3; terminal definitions 
O00000A 4 : Lf = 1 
000006 000 $ : FIDSIZ = 6 : ID sizes 
ities 00 DIDSIZ = 6 
0000014 0000 FILNAMSIZ = 20 
0000007 8 ; COM_FIL_SIZ = 7 
00000064 09 31 ; BUF _SIZE=100 ; buffer size 
$00 38 : ALL_OPR = OPCSM_NM_CENTRL!OPCSM_NM_PRINT!~- 
38 94 OPCSM_NM_TAPES!OPCS$M_AM BISKS!- 
> 95 OPCSM_ NM ~PEV ICE AOPCSA NA_OPER1!- 
0 a8 OPCSM_ NM “OPER 'OPC$M_NM_OPER3!- 
° 0 9 OPCSM_ NM “OPER4 ! OPC$M_NM_OPER le 
0 38 OPCSM_NM~OPER6 | OPCSM_NM_OPER7 | - 
9 OPCSM_ NMA “OPER 'OPCSM_NM OPERD!- 
1 ? OPCSM_ NM “OPER 'OPCSA _NA_OPERI1!- 
OOFFFOIF : OPCSA_ NM ~OPER1 
: § : eeene NOTE teeee 
: 5 : THE FOLLOWING DEFINITION IS TO BE REMOVED WHEN VMS RELEASE 2 IS FIXED. 
00000008 1 $ , SNDACCS_CHAN = 8 
' 3 : MACROS 


7 
SATSSSOS5 - SATS SYSTEM SERVICE TESTS (suc S.C.) 16-SEP-1984 00:46:1 AX/VMS M v04- © 
50a 5808 DECLARATIONS iets 9:58:19 LOE TPSY. SRE TSATSSSOs «MARS 1 ct dy 
0000 ig «PSECT RODATA,RD,NOWRT,NOEXE,LONG 
118 fest _MOD_NAME : 
35 30 53 53 53 54 41 53 99" 114 TASCIC /SATSSSOS/ 3 needed for SATSMS message 
115 TEST_MOD_NAME_D 
53 53 53 54 41 53 ee errr 116 TASCIO /SATSSSOS/ ; module name 
1 117 TEST_MOD_BEGIN: 
6E 75 67 65 62 99" 13 118 eASCIC = /begun/ 
1F 119 TEST_MOD_SUCC: 
6C 75 66 73 73 65 63 63 75 73 80" 138 TASCIC /successful/ 
A 13 TEST_MOD_FAIL: 
64 65 6C 69 61 66 99" 2 122 sASCIC /failed/ 
1 133 SNDACC: 
43 43 41 44 4E 53 gO" ! 124 «ASCIC /SNDACC/ 
09 133 SNDERR: 
S52 52 45 44 GE 53 9" +3 126 «ASCIC /SNDERR/ 
88 F rH SNDOPR: 
52 50 4F 44 4E 53 9" Oper 128 -ASCIC /SNDOPR/ 
bee 133 SNDSMB: 
42 4D 53 44 4E 53 go" 744 130 -ASCIC /SNDSMB/ 
04D 131 CS1: 
21 20 74 73 65 54 00000055'010E0000" 004d 132 -ASCID \Test !AC service name !AC step !UL failed.\ 
3 $9 $6 $3 69 i$ 72 65 7 9 43 41 38 
65 74 20 43 41 $} 2 gp $} 0 
2E 64 65 6C 69 61 66 20 4C 55 21 20 Be 433 ¢s2 
74 63 65 70 78 45 gpop90g? "G05 9009" O7F 134 5 -ASCID \Expected !AS = !XL received !AS = !XL\ 
4c 58 $} 20 3 $0 53 41 21 2 § 
41 21 20 64 65 76 34 $3 3 g 
4C 58 21 20 3D 2 ¢$3 
4 fH 65 70 78 45 + 99° 9 ; -ASCID \Expected !AS'UB = !XL received !AS'!UB = !XL\ 
goa Gea 8 f 
$8 $3 20 $b 36 42 $8 21 $$ 41 


CS5: 
-ASCID \Mode was !AS.\ 


77 20 65 64 GF 40 990000E7*910E9000" 
4 63 65 70 78 45 HE i Be 
SEEEPEEE] HEE te 


-ASCID \Expected byte offset !UB(10) = !XB(16) received !XB(16).\ 


FroMwOS 
oo 
Wu AOOm eRSOCCORDS SS 
PPA PML LG MMM POOWVOO 
aad ated —— 
rw WW Wwe 
ono aon ow 
oO 
uw 
oa 


1 
2 -ASCID \user\ 


72 65 73 75 0000013C'010E0000° 


4 


SATSSSO5 SA 
04000 betta 
42 4D 24 54 53 53 penearae wreneeay’ 


41 54 54 SF 8" 


0001 
73 75 74 61 74 73 0000015E'010E0000" 


VERHRISHOS EE 
eit 
4D 59 53 


00000014 
0000038A' 


T$ 
RA 
53 45 59 60" 
0 
55 51 SF 54 41 42 SF 50 54 45 3? 9" 
14 
OD 
0000000E 
55 51 SF 54 41 42 SF 50 54 45 33 99" 
24 
$0 
0000000E 
00000003 
007411 
00000001 
00000169" 


80000103" 


00000000 


00 
41 50 4F SF 99" 


WnNuOrywmMrn OOO 9 9 OM 9 OOM 


BPE FAM OO OOF AOOAOAoO 


Ss os ae 


oa AOOMMNUUM" PAE EE PE HE 


a a a a 
FW MO OONOUS Ww 


ad ad od 
oon 


NOU 


eta etab ed ed a de dd  ed 
COCOCOCORSCD WOOO NNN NNO OO 
CONOWUS WR OOONOUS WNC OMm 
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=SEP-1984 UETPSY.S }SATSSs «MAR; 1 


«ASCID \SSTSMBX\ 


TTNAM: 


eASCIC \_TTAN ; terminal name to send opr messages to 


TTUNIT: 
-WORD 1 


EXP: 
ASCID \status\ 
BAT_IMP EXC: 


; unit number for above 


D \Batch job improperly executed.\ 


YES_DESC: : 
ADDRESS SYM_NAME 
SYM_NAME : ; batch job symbol name 
SASCIL = \SYM\ 
SYM_DESC: 
.LONG 20 
a TADDRESS SYM 
"  LASCIC \YES\ ; parameter for SNDSMB 
QUENAM1 : 
.ASCIC /UETP_BAT_QUE1/ 


QUENAM1L=.-QUENAM1 
-ASCIC /UETP_BAT_QUE2/ 


QUENAM2 : 


QUENAM2L=.-QUENAM2 


MSGVEC: 


«LONG 3 ; PUTMSG message vector 
tees ETPS_TEXT 

- ADDRESS MESSAGEL 
TEST_ERROR: ; SNDERR test data 


-LONG BUF ~$}ze 
ADDRESS . 


A= 
-REPT BUF _SIZE 
-BYTE A 
A=A+ 

-ENDR 


eASCIC /_OPA/ ; operator console name 


OPNAME : 


OP_MSG1: 
-LONG MSGIL ; GENREQ routine OPRMSG buffer 
-ADDRESS .+4 
“BYTE OPCS 
-LONS OPceR. NAY CENTRE 
-%.° 


request operator type 
is only 3 bytes big 


e. 
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$042000 DECLARATIONS Breer ebe asssad FORT MCe eae s Sa cesos. mans: Page 
00000000 re 133 op nese -LONG 0 ; global request ID of 0 
3 SF 4 sf 53 re $0 ; 3 4 ef 1 5 r "ASCII /UETP SSNDOPR system service test user message./ 
$3 25 52°38 82 o2 58 Ge E 8 
COREG RAG BEE Bee 
690 ¢ 7C «193 OP_MESG_LEN=.-OP_MESG 
00 7C = 194 MSG1L=.=OP_MSG1-8 3 message buffer size 
7€ 195 FILE_NAME: 
4D 4F 43 2€ 35 30 53 9" 4: 196 <ASCIC /$05.COM/ 
990000 8 4 197 NAME_SIZE=.-F ILE_NAME 
0 4 138 as waite <FILNAMSTZ“-NAME_SIZF> ; filler for SNDSMB 
47 GF 4C 2€ 35 30 53 $9 $07 i ies heel! /$05.L0G/ : log file name 
20 35 39 53 53 53 54 41 5 20 21 24 97 2 ~~ ASCII /$! SATSSSOS SNDSMB test batch job/<CR><LF> 
0 74 73 65 74 20 42 40 53 44 4E A3 
OA OD 62 6F 6A 20 68 63 74 A 62 Ar - leat Ae 
000 b03s 6 BC 04 pest RECO_SIZE=.-COM_FILE : record 0 size 
27 31 50 27 3D 3A 4D 59 $3 20 24 6 a 0g “ASCII /$ SYM:="P1"/ 
000000 8 cf Oe REC? REC1_SIZE=.-REC1 3; record 1 size 
53 51 45 2€ 4D 59 53 9 46 49 30 34 0 C7? 209 "ASCII «\S IF SYM.EQS."'YES'’ THEN DEF/GR SYM "P1"\<CR><LF> 
20 4E 45 48 54 30 22 45 59 : E 02D3 
27 20 4D 59 53 20 47 Hi 46 43 44 0 DF 
60000039 FD a 7 REC2_SIZE=.-REC2 
07" tO iF ‘ .BYTE OLS 
21 F121 -BYTE | SMOSK_HOLD 
6 F gi -BYTE SMOSK~PARAMS 
53 45 59 00° i 15 SASCIC /YES/ 
00 0 F? 1 .BYTE 0 
0000000 i 7 i OL1S=.-OL1-1 
04' § F |) Pewee .BYTE OL2S 
‘ O2F9 0 “BYTE | SMOSK_JOBPRI 
OFA 1 BYTE 
1 O2FB é -BYTE SMOSK_HOLD 
0 OFC “BYTE 
00000004 FD 4 pt. OL2S=.-OL2-1 
31 4D 55 GE SF 42 4F 4A 00° FD ' Pes .ASCIC = /JOB_NUM1/ 
88 $ 3h ams .BYTE 0 
32 4D 55 GE SF 42 4F 4A oe , i .ASCIC = /JOB_NUM2/ 
10 0 .BYTE 0 
11 1 JN3: 
33 4D 55 GE SF 42 4F 4A oe 1 2 .ASCIC = /JOB_NUM3/ 
1A 233 .BYTE 0 


' 
_— 


n“ 


Slt? sft 


>-— 
maw 
= 

+n 
25 
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ser Tt R/W PSECT 
«PSECT RWDATA,RD,WRT,NOEXE,LONG 


00000000 
00000065 
00000000 


; change mode continue address 
; returned address's from SETPRT 


0000 
fPID: 
00000000 -LONG 0 ; PID for this process 
CURRENT_TC: 
00000000 ° 0 ; ptr to current test case 
«ALIGN LONG 
REG_SAVE_AREA: 
00000044 ~BLKL 15 ; register save area 
MOD_MSG_CODE: 
00748009 -LONG UETPS_SATSMS ; test module message code for putmsg 
00000000" 9 ADDRESS TEST_MOD_NAME 
00000019" ADDRESS TEST_MOD_BEGIN 
00 " BYTE ; protection return byte for SETPRT 
PRIVMASK: 
00000000 00000000 6 ; priv. mask 


LONG 
$Q10 2,MBCHAN, 1O$_READVBLK,,,,BUF ,BUF_SIZE+30 ; Q10 parameter List 
SSNDACC ACC_DESC,MBCHAN ; SNDACC parameter List 
SSNDERR TEST_ERROR ; SNDERR paramter List 
SSNDOPR OPMSG_DESC,0 ; SNDOPR parameter List 
SSNDSMB SMSG_DESC,0 ; SNDSMB paramter List 
-ASCID \register R\ 


74 REGNUM: 
-LONG 0 ; register number 
6 MSGL: 


DW FS OOP AAOOAOUMUMMUMI & BEE FOO OOOOOCOO-— 
DO NNW $ S OONNWIT MDD VOOT DO OOF FT OOS OC OO “CON OODL fF OOOFSSOOCOCOUW -~< 


OOoooooceoo 


74 73 69 67 65 72 00000091 "91059000" 
52 20 6 


00000000 


800000e >" 


00000169 


000007" 


00000000 
0000 
00000000 


-LONG 130 ; buffer desc. 
4 ADDRESS BUF 
79 BUF: 
y -BLKB 130 
MESSAGEL: 


§ . 0 3 message desc. 
? -ADDRESS BUF 
5 


SERV_NAME : 
-LONG 0 ; service name pointer 


-WORD 0 ; mailbox channel number 


PIPOPIPPOPOPIPIPSPOPIPIPPUPIPIDD ——- POPOPOPSPOPSPOPNINSPOPIPNPUPONPOPOPOPOPIPUPIPOPOPOPOPOPPONONOPOPUPOPNPOnoTnyD 
~ SNIP AAA AAA AAO TTT BB BB BB AAAI 
~NO wn WPI 9 ODNOA UNE WPS 0 OONOU FWD" O O@WO UE WP" OOOO 
zamauonann#hiseunewreo v7 -—- - 
maeaa2z2aeaze2Zze..-" + m = => 2 3 
ovo odo v70ot so vy = <= v9 
“oom } — > 1 wv i ] 
SS = 2 => > 
oo DBD Oo “4 og 
=z z i=] 
“ 
oO 
ao 9g 
ow sd ©o& ©& 


COOOOOCCOOCOCOSOOOOOSOOSOSSoOo 


= I IOOOOOOOOOO 


SNNNNNNOCOMmMmmooToITIIoOo 


«LONG 0 ; current mode string pointer 


aE 
000001CB 

ane 

ca 


all 


° “Fay 


un“ 


S 
PSE 


NVWAWOONVWw OOM -+~< 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


5 


ON RMMMMMMoOGCVVHOON oO 


A.A. A.A. AAA. AIO WIS © 
NO TWO Ow "co 


MMMM OW > OOM 


= 
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| -BLKB 80 ; mailbox buffer 
MSGVEC1: ; PUTMSG message vector 

9 «LONG 3 

3 - LONG geiry,,sene 

5 - LONG 

38 -LONG 0 

97 STATUS: 

4 -BLKL 2 ; mailbox status block 

99 ACC_MSG: 

«WORD ACCSK_INSMESG : etereing qescege code 

WORD MSG_STZE 3 message 
§ -LONG 1 : final Ht sy stetus 
«LONG s PI 

4 «LONG ; job! 

5 UAD ; he Bn job termination time 

6 ASCIC /SYSTEST/ 3 account name 
307 ASCIC /UETP SSNDACC system service test user data record/ ; user data 
08 MSG_SIZE=.-ACC_MSG 

09 ACC_MSG1: 

gone Ase Blane : Lunch aegcote 

1 ‘ " ; batch jo 

\§ -BYTE ACCSK_INSMSG 3; arbitrary message type 

1 -BYTE ACCSK_INTTRM ; interactive job type 

14 -BYTE ACCSK_LOGTRM ; login failure termination type 

15 -BYTE ACCSK Bas} 3 non-interactive process type 

18 -BYTE ACCS$K_PRTJOB ; print job type 

1 -BYTE ; terminator byte 

3 ao sate ace 

19 ACC_DESC: 

20 -LONG MS ; descriptor for accounting message 
21 . ADDRESS nee _MSG 


sS8a 


oo DODO DOCOCOOOOOOOO 
OD > OONOUS wr 


oo fN—O™MNNNS 


0000039E 


SA 
w! 


S 
$ 


8 
9 
96 
9 
9 
9A 
9 
1 


16 


POODDDWOOA LS SSW 


COSCO OCOOOOOCOOCOOCOOOOooOoO 
BELLE 

MmooCoOoCoooOF> 
SOSOCSCOCOCOCOOMM > & F PRWOOASOOCOCOMMP>& 


STEM SERVICE TESTS suce sec.) 7. pea lone 0:56:19 yt ee Macr 


OPTYPE: 


> LONG 
OPMSG_DESC: 


OPMSG 


SMSG: 


SMSG1: 


- LONG G 
«ADDRESS OPASG 


-BYTE 
-BLKB 


- LONG 
-BLKB 


S 
SEP=1 


OPCSM_NM_CE 

OPC SH_NH_PRINT {<¢a 
OPCSM-NM- TAPES |<3ao4> 
OPCSM-NM_DISKS!<4a04> 
OPCSM_NM_DEVICE!<5924> 
OPC SA-NM~OPER 1 <6a24> 
OPC$M-NM~OPER2!</7ao4> 
OPCSM-NM-OPER3 | <Bao4> 
OPC SA-NM~OPERG |< 4> 
OPC$M~NM~OPERS !<10a24> 
OPC $A_NM-OPERG/ <I a24> 
OPCS$M~NM~ OPER? !<12a04> 
OPC SM_NM_OPERS {<1 a24> 
OPCSM_NM~OPER9!<14a24> 
OPC$M~NM~OPER10!<15a24> 
OPCSM_NM_OPERT1i< 16a 4> 
OPC$M~NM~OPER12!<17a24> 
OPCSM_NM~CENTRL !<18a24> 
MSG_LEN 


Ce 


20 
MSG_LEN=.-OPMSG 
SMSG_DESC: 


LONG 


SMSG_LEN 


“ADDRESS SMSG 


WRSK_INITIAL 


$ 
1 
16 
6 
6 
0 


“BLKB 32 
SMSG_LEN=.-SMSG 


-BLKB 


20 


-ALIGN LONG 


SNAM 
$FAB 


T,- 
LE_NAME+1,- 
M FIL SIZ.- 
BLK 


ae ; opr type & ID table 
I > 


es. 


o V04- 
Meee ees ay eesos. marst 


just to make an even number 
SNDOPR msg buffer desc 
function code 

qgereter type 

message or terminal info 


SNDSMB msg buffer desc 


SNDSMB msg buffer 
queue name 


device name 


directory ID 

*ilename 

Job ID 

job name 

room for options and option data 


SATSSSOS = SATS SYSTEM SERVICE TESTS suck s° S.C.) 16-SEP-1984 AX/VMS V Page 
v04-000 R/W PSECT g- =SEP=1984 38:19 YOETPSY.s Re Tealeesos. MARS1 
4 0 $RAB ss FAB=FAB,- 
¢ ROE =COM FIL 
= a 
4 g Rev=RECO SIPE 
94 4 FABI: 
494 5 $FAB ss FAC =PUT,,- 
94 : FNA=FILE_NAME1,- 
49% FNS=COM FIL_SI2 
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acro V04- 
-SEP-1984 UETPSY.S y SAE ISAT SSSOs MAR: 1 


«PSECT SATSSSRG RD .URT ENE LONG 
-SBTTL SATSSS 


+ 
FUNCTIONAL DESCRIPTION: 

After gobs pene initial gousenees h6. such as 
printing the module begin message and acquiring needed privileges, 
the 4 em services ore tested in each of their normal conditions. 
Detected failures are identified and an error message is printed 
on the terminal. Upon completion of the test a success or fail 
message is printed on the terminal. 
CALLING SEQUENCE: 

$ RUN SATSSSOS ... (DCL COMMAND) 
INPUT PARAMETERS: 

none 
IMPLICIT INPUTS: 

none 
OUTPUT PARAMETERS: 

none 
IMPLICIT OUTPUTS: 


Messages to SYSSOUTPUT are the only output from SATSSSOS. 
They are of the form: 


XUETP=S-SATSMS, 


Page 10 
’ 1 


E ) 


0000 


(BEGIN MSG) 


TEST MODULE SATSSSO5 BEGUN ... 
RUETP=S-SATSMS, TEST MODULE SATSSSO5 tht yebes -.+ (END MSG) 
RUETP-E-SATSMS, TEST MODULE SATSSSO5 FAILED £5 (END MSG) 
RUETP=I-TEXT, ... (VARIABLE INFORMATION ABOUT A TEST MODULE FAILURE) 


COMPLETION CODES: 


The SATSSSOS routine terminates with a SEXIT t 
operating system with a status code defined x. OUETES. SATSMS. 


SIDE EFFECTS: 
none 


SSSSSSSOSOSSOSSOSSSSSSSSOSSSSOSSSSSOSSSOSOSOSOSOOSOOOOSOOSOOSOSSOOO OM 
SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSOSOSSSSOSOSOSSS -~< 
Poe ot ot ot ot ot ot ot ot at I UMMM UMUMUMMUMMUeMnnm meee 
WWII ANI AIP ORPOPPOPNONIIN 2 BQO OOO D000 000000000000 
DWNAANE WI @OOONAUL WN (CO OONAULWN OO DDNAMNEWN OO ONAUE WOO 


SOQOSooooooooooooooooooooooooooooooooCoooooOoOoOoOoOoooooo 


SOOooooooooooooooooooooooooooooo 


TEST_START SATSSSO5 ; let the test begin 


SATSSSO5 = SAT 
yous000 SATSS 
000 
0004'CF De 
0 dD 
QOOO'CF OF 
0000000 ' GF 03 FB 
0000000'GF : fe 
00000000 ' GF 1 Fe 
004C'CF oir fer D 
0044'CF 03 80 : rb 
OAFE'CF 1 FB 
59 00000000'9F 00 
O0O51'CF 69 ODE 
0171'°CF OOa) cE DE 
O177"CF O134°CF ODE 
00 oD 
OAFE‘CF O01 FB 
09 50 «EB 
00000000°8F oD 
vt the 8} FB 
COE "CF 0 FB 
0004 "CF 4 dO 
0 odd 


OOOOOOCOOOSCOOOOOOOSOOSOOSOSOSOSOSOOSOSOOSOSOSOSOSOOOSOOSOSOOOSOOOOOOOOOOOSOOoOO UNM 
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COOOCCOCCCOOOSSC COC CCCOSOSOOOSC OOOO OOOCOCOOOOOOCOOOoOO 


SS OO OOWOA AA NWA AWWA AAAI A AN.AAAAIPOND + — —DODOOOCO 


MFRONVT NING — SPOUT VOTST SCOT SST S999 S99 GO *WOVIMN PWN WOvcooe 


PRP LL LLL LLL LLLP PP PEPE PEEPS 


DPD DD DPD. Grrr £ Be PPE EW 
MEW $$ O ODNAUE WN CO OONOUS WN O”0 


Ss 


S—aaw 


46 
46 


ST 


.ENTRY SATSSS05,0 
LRL WCURRENT_TC 
USHL #0 
PUSHAL W°TPID 
CALLS #2 .G7SVSSUAKE 
CALLS #0,G*SYSSHIBER 
PUSHAQ W*TEST MOD _NAME_ 
CALLS #1,G*°SYSS$SETPRN 
SBW W*MOD_MSG PRINT 
MOVAL wW*TEST_MOD suce 
INSV wsuccess 0.8 " 
PUSHL # 
= CALLS #1,W*REG_SAVE 


-SBTTL SNDACC TESTS 


SSNDACC tests 


; test ACCSK_NEWFILE 


38:19 


AX/VMS r 


Mac 04 
UETPSY.SRCJ 


0 V04- Page 11 
oy eesO. mans 1 ° 


(1) 


,W°TMD_ADDR 
W*MOD_ASG_ CODE 


This function will not be tested because of the possible interference 
that it might cause with the ACCOUNTNG.DAT file on a customer's system. 


: test ACCSK_INSMESG 


MODE TO, 10$, KRNL, NOREGS 
MOVL a#CTL$6L_PHD 

MOVAL 

MODE 

PRIV ADD, OPER 

MOVAL W*SNDACC,W*SERV_NAME 
MOVAL W*UM,W*MODE 

PUSHL #0 

CALLS #1,W*REG_SAVE 
SCREMBX_S CHAN=W"MBCHAN 
BLBS RO. 208 

SEXIT_S R 


20$: 


SSNDACC_S MSGBUF=W*ACC DESC,- 
=W“MBCRAN 


HAN =W 
FAIL_CHECK SS$_NORMAL 
PUSHL ~ #SS$_NORMAL 
CALLS  #1,W*®REG_CHECK 
CALLS #0,W*READ_CHECK 


test ACCSK_DISAACC 
NEXT_TEST 


MOVL 


#1,W*CURRENT_TC 
PUSHL #0 


kernal mode to access PHD 
et process header address 


»R9 : 
PHDSO. PRIVMSK(R9) ,WAPRIVMASK. ; get priv mask address 
FROM, TOS ; get 


k to user mode 


: 
; set service name 


7 
a 
2 
. 
. 
aa 
w 


; set the mode 

; push a dummy param 
; Save a reg snapshot 
; create a mailbox 


br if OK 


; exit and show why 


try a ACCSK_NEWFILE 
check for success 


check the mailbox 


SA’ 
vO: 


H 8 
SATSSSOS = SATS SYSTEM SERVICE TESTS (SUCC S.C.) 16-SEP-1984 00:46:17 AX/VMS Macro V04- Page 1 
Mitbeht SNDACC TESTS ee 3B 0:58:19 LOE Tyee Rea gay eesoe mars ° 18, 
AFE'CF 1 F E CALL W*REG. gaye 
1E3'CF 8 60 Es 475 MOVW pat kex piskacees rie set the new function 
OOAS'CFE O175'CF 3¢ Ef 476 MOVZWL W*MBCHAN D RuBALSMOACC ha AN i get up the channel number 
i 47 SSNDACC_G W*SNDA ; try ACCSK_DISAACC with a Little G 
FC 3478 FAIL_CHECK SS$_NORM : : heck for” success 
0 990000" F OD F PUSHL eS NORMAL 
BO8'CF 1 FB QO} CALLS W*REG_CHECK 
COE'CF 00 FB , 479 : CALLS #0,W*READ p_CHECK ; check the mailbox 
10¢ 481 ; 
10¢ «4 4 3 test ACCSK_ENABACC 
10C «483 ; 
10C 484 ;- 
¢ 485 NEXT_TEST 
10C STP2: 
0004'CF 02 dO ©010C MOVL i »W*CURRENT_TC 
0 DD 0111 PUSHL 
OAFE'CE 01 FA 13 CALLS EG_SAVE 
O1ES'CF 03 BO 0118 486 MOVW ENABACE UACC _MSG ; set function code 
O11 4g? SSNDACC § “NSGBOF=veA C_DESC,= 
11D 488 CHA “We “ROCRAN ; try ACCS$K_ENABACC with a Little _S 
012D 489 FAIL sane we 3; check for success 
00000000 ' 8F DD 1 4 MISSSN 
‘CF 3601) FBO te #i,w™ REG. CHECK 
OCOE'CF 00 FB 0138 490 CALLS #0: WTREAD _CHECK : check the mailbox 
O180 492 
61 D 298 3; test ACCSK_DISASEL with all types selected 
013D 494; 
013D 495 ;:- 
0130 496 NEXT_TEST 
013D 
4 D STP3: 
0004'CF 03 pO 013d MOVL #3,W*CURRENT_TC 
00 DD 0142 PUSHL #0 
OAFE'CF 01 FB O48 CALLS a ,W*REG_SAVE 
0242°CF OQO235°CF OD 149 497 age mE $G1,W*ACC “DESC+4 ; set new mosseee oqéress 
O23E'CF O09 OD 3138 498 $G1- SIZE.W*ACC— DESC ; set new messa 
15 499 SSNDACC aan UPSADA y try A (sk ‘DISASEL 
15E 500 FAIL =CHECK 3. e-" : check for success 
00000000'8F DD O15E MISS$- NORMA 
OBO8'CF 01 FB 0164 ate ts #1 ,W™REG_ CHECK 
OCOE'CF 00 FB 169 01 : CALLS #0: UP READ_ CHECK : check the mailbox 
16E ; 3 
16E 4 ; test ACCSK_ENABSEL 
16E 5 3 
16E § i: 
16E NEXT_TEST 
16E 
16E STP4: 
0004 "CF 4 00 1g MOVL #4 ,W*CURRENT_TC 
0 DD 01 PUSHL ‘ 
AFE'CF . oF 17 CALLS W°REG_SAVE 
235'CF 5 BO O17A 508 #ACC ENABSEL eoace _MSG1 : set new function 
17F SSNDACC S mSGEORCUrAre C“DESC,= 


8 
= SATS SYSTEM SERVICE TESTS csuct $.C.) 16-SEP-19 r 0:46:1 AX/VMS Macro V04- Page 13 SA] 
SNDACC tests g- -SEP-1984 9:58:19 fuEtPsY. SRCJSA Weesos. MAR; 1 wee | § vO4 
17F 219 CHAN ~ alia ; try ACCSK_ENABSEL 
18F 1 FAIL aie 1 sss. NORMA : check for’ success 
o9990000" F DD Q18F a 
pee ‘CF 1 FB 195 4 ¥ “REG. Check 
COE'CF 0 FB QO19A 512 CALLS #0" U READ. 3 check the mailbox 
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SATSSSOS = SATS SYSTEM SERVICE TESTS (suce $.C.) 16-SEP-1984 00:46:1 AX/VMS Macro V04- Page 14 
Sou s880 SNDERR_S TESTS iets fi 0:58:19 Se Teey Rea gaySSSoS.mAR:1 ° (1) 
13 1% -SBTTL SNDERR_S TESTS 
19F 1§ : 
13 ! ; SSNDERR_S tests 
13 i§ 
13 20 NEXT_TEST 
19F STPS: 
0004 'CF 5 d0 19F MOVL #5,W*CURRENT_TC 
0D 1A4 PUSHL 
OAFE'CF 1 FB Q1A6 CALLS #1,W*REG_SAVE 
1AB ; 1 PRIV ADD ,BUGC ; add the BUGCHK priv. 
O171°CF OO38°CF DE OIC § MOVAL  W*SNDERR ,W*SERV_NAME ; set service name 
a Aer 
=y* 7 
1D 5 PRMFLG=#0 ; make a mailbox 
1E 6 SGETCHN_S CHAN=W“MBCHAN, = 
1E9 PRIBUF =W*MSGL 3; get the unit number 
7E OOF 3'CF 3¢ 1FF 528 MOVZWL W*BUF+¢DIBS$W_UNIT,-(SP) ; push the MBX unit # 
00000000'GF 01 FB 04 529 CALLS #1,G*SYSSDERLMB ; declare errorlog MBX 
0208 ; 0 SSNDERR_S MSGBUF=W*TEST_ERROR ; try -S form 
0216 1 FAIL_CHECK SS$_NORMAL ; check for success 
00000000 ' 8F DD 8 16 PUSHL #SS$_NORMAL 
OBO8'CF O01 FB ie 532 eeT1 CALLS #1,W*REG_CHECK 
00O71°CF O175'°CF B60 0 1 338 MOVW W*MBCHAN,W*Q10+Q10$_ CHAN 3; get the channel number 
8 534 $Q10 G w*Ql0 ; do a rea 
0231 535 SWAITFR_S EFN=#2 ; wait for it to complete 
0075'CF 00' BF 88 8 A : $ BISB2 #10$SM_NOW,W*Q10+Q10$ FUNC 3 set the NOW modifier 
OOEB' CF +4 * ‘3 5 Het GENGSC_SS.U°GUF +EMBSO_HO_ENTRY s Me fyts -e right entry? 
; br no 
sa DE 0 4 ; 9 MOVAL W*“*BUF+18,R6 ; set buffer address 
1D5"CF DE 4¢ 540 MOVAL W*TEST_ERROR+8,R7 > set good data address 
58 00000064 8F OD 8 51 24) MOVL #BUF STZ ; set byte count 
OEIA'CF §00 «FB 6 38 4¢ f CALLS #0,W"BUF_CHECK : check results 
50 544 ; 
2p ig ; SSNDERR_G tests 
D se :- 
5 3p 48 NEXT_TEST 
3p STP6: 
0004 'CF 0 dO i) MOVL * lladataaeaata i 
OD 6 PUSHL @# 
OAFE'CF 1 FB 6 CALLS #1 ,W*REG_SAVE 
0064 8F 00 = O0E ‘hoeree 2c $3 549 MOVCS #0,W*BuF #0, #BUF ~SIZE,W*BUF ; zero the buffer 
be OD 75 0 PUSHL #0 ; push a dummy parameter 
OAFE'CF 1 FB 7 1 CALLS #1,W*REG_SAVE 3 save a reg snapshot 
7 5 SSNDERR_G W*SNDE 3; try 
5 FAIL_CHECK SS$_NORMAL ; check for success 
8 00 BF OD PUSHL #SS$_NORMAL 
08 "CF 1 FB St #1,W*REG race 
0075'CF 00000'8F CA z 236 ates BICL2 #1OSM_NOW,W*Q10+010$_FUNC : set to wait for mailbox 


= SATS dod SERVICE TESTS (suce ° C.) <* $Ee- 1388 89: $6: 19 AX/VMS wacce. 04- Page 15 SA’ 


SNDERR_ UETPSY.SR $SS05.MAR;1 (1) vO 
9 Q10.G w*al0 ead ilbo 
: ; 3 tuk AITFR_S EFN wait ior completion 
75°CF 00° BE #10$M_NOW,W*Q10+Q10$_FUNC 
OOEB' CF f ; s $C_SS,W*BUF +EMBSO_HD_ENTRY 
OE1A'CF 09 Bt i $5 W*BUF _CHECK 
6 


set to read it until found 
: CLRL - 
Q0000000'GF 0 CALLS #1,G*SYSSDERLMB 


Ql 
EFN=#2 
0$ 

M the crane entry? 

br ifn 

check reoulte 

set channel to 0 

reset the error logger 


SATSSSO5S = SATS SYSTEM SERVICE TESTS suck s° S.C.) 16-SEP-1984 AX/VMS o V04 Page 1 SA’ 
v04 SNDOPR tests. g- SEP-1984 Be: 38; 19 LOEtPSy.§ Y.SREJSATSSS -MAR;1 ’ (3) vO! 
C $ -SBTTL SNDOPR TESTS 
ce 83 
¢ 2 : 
: ;SSNDOPR tests 
C 9 : DISABLE tests with _S 
ce 35g 
C6 7% ° NEXT_TEST 
£8 STP7: 
0004'CF 07 iv) C MOVL #7,W*CURRENT_TC 
89 OD CB PUSHL # 
OAFE'CF 1 FB C CALLS #1 W*REG SAVE 
0171'CF OO3F CF 43 D8 75 MOVAL W*SNDOPR,W“*SE 3; set service name 
salt’ 1 D 6 MOVB #OPC$_RQ_TERME,Q*OPMSG ; set the function code 
297'CF D4 Of 7 CLRL W*OPMSG+ 3; set disable ID mask 
O29A'CF FFFFFFFF 8F 00 E 4 MOVL #-1,W*OPMSG+OPCSE_MS_ MASK set operators to be disabled 
0 Weer B4 eB 57 CLRW W*OPMSG+OPC$W_MS_OUNTT set unit to zero 
O2A0'CF 0 : ‘CF 8690 EF 0 Rove W*OPNA ARE W*OPASGTOPCST_M set operator name size 
O2A1'CF O23A'CF DO O2F6 1 OVL W*OPN AMET .W“OPMSG+OPCST. sag we, +1 ; set operator device name 
0 4 2 ¢ SSNDOPR § we the “rec 
§ 0D be FAIL ate 1 sess : ek” success 
90000000" 8F DD B39 MISSS-N ORMA 
0B08'C 01 FB 631 585 :+ att: #1,W"REG_ CHECK 
031 386 : 
8 ’ 28 : ENABLE tests with _S 
031 85 i+ 
0318 590 NEXT_TEST 
31 STP8: 
0004'CF 08 00 a318 MOVL #8,W*CURRENT_TC 
OAFE'cE Ov FB 0 F CALLS _#1,WSREG, SAV 
0297°CF  OOFFFOIF oF D 4 $91 MOVL #ALL_OPR, UOPNECTOP TSB er. _ENAB : set oprators to enable 
29A'CF FFFFFFF 8F DO 032D 238 MOVL #-1,Q*OPMSG+OPCSL_M ; set enableable bits 
0 Meech 0154'CF 8 0336 9 MOVW W*TTUNIT, W*OPMSG+OPC SW ns OUNIT ; set the terminal unit number 
O2A0'CF O14F "CF D 94 nove W“TTNAM,W*OPMSG+OPCST T_AS_ONAME ; set the terminal name size 
O2A1°CF O1SO'CF DO 44 95 W*TTNAM+1 ,W*OPMSG+OPCST_AS_ONAME+1 ; set the terminal name 
48 9 SSNDOPR § RSGBUF =U"OPR C.- 
48 9 CHAN=W* —— : enable the alternate terminal 
58 98 FAIL =CHECK Ras NORMA : check for success 
00000000'8F DD 5 SS$_NORMA 
0B08' CF 1 FB et a8 vs att: #1,W*REG_ CHECK 
66 600 : 
re ? ; RQST tests to make a request with ID = 1-18 
66 6 : :- 
6 604 NEXT_TEST 
ge STP9: 
0004'CF 09 D0 0366 MOVL #9, W*CURRENT_TC 


stn 4 
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SATSSSOS = SATS SYSTEM SERVICE TESTS (SUCC S.C.) 16-SEP-1984 AX/VMS ro V04é- Page 17 
$Ou 2805 SNDOPR TESTS g- -SEP-1984 80: $8: 13 UETPSY.S SRE TSATSSSos MAR: 1 ° (2) 
DD PUSH 
re" o FB CALL 1 Ww 
o0B9"s }F3° 605 MOVZWL URBCMaN. ut oW SNDOSSNDOPRS. CHAN ; set the channel number 
296" 6 § MOVB Rest ¥ PMSG ; set function code 
4E' Cf 4 6 MOvC3) #OP mESG LEN,W Sop MESG,- 
“f ? 3 COPMSCSOPESL MS_TEXT ; put the text in the message 
7 D6 : cLRL 3 t loop varyab ble 
8 9A‘ CF D4 610 CLRL SAT TeE he SL_MS_ROSTID é nit the ID field 
52 46'CF ODE f ei) 108 MOVAL W*OPTYPE,R i set oper type List pointer 
0297'CF dO 1 $8 MOVL (R2)+,W*OPMSG+1 : set oor type & ID 
dD g e1% PUSHL g ; push a dummy parameter 
OAFE'CF FB 15 CALLS #1,W*REG_SAVE ; save the registers 
9D 218 SSNDOPR_S wag 7 te Ry DESC,- 
90 61 CHAN=WANBCH HAR : try .$ form | 
AD 618 FAIL. CHECK sss -NORA ; check for success 
00000000'8F oD PUSHL OSeScN 
. 9} a} CALLS #1 UrREG C CHECK 
0297'CF p0 (0 619 MOVL (R2)+,W*OPMSG+1 ; set opr type & ID 
DD O38D 620 PUSHL @# ; push a dummy param 
OAFE'CF 01 FB O3BF 621 CALLS #1 gic tes. SAVE ; save a reg snapshot 
C6 6 § SSNDOPR_G W*SND 3; try 
cD «(C6 FAIL =CHECK “s38.N 3; check for success 
00000000'8F oD NISSS-N 
0B08' CF 01 Fe ch te #i,w™ REG. rohe ck 
85 57 O9 fF D8 624 AOBLSS #9-R?,108 ; do all opr types 
O30C 625 ;+ 
O30C 626 ; 
O3DC 627 ; CANCEL tests to cancel requests 1-18 
O3DC 628 ; 
O30C 629 ;- 
8 +: 630 NEXT_TEST 
030 STP10: 
0004'CF OA dO oc MOVL #10,W*CURRENT_TC 
00 ODD 0O3€1 PUSHL #0 
OAFE'CF 01 F —3 CAL Us #1,W*RE AVE 
9g90' Ce 05 9 E8 631 MOVB pOPCe RQ CANCEL’ oo OpasG 3; set function code 
5 0246'CF ) ED o3¢ MOVAL W*OPTYPE-R ; set table pointer 
56 00008084 er D Fg 6 MOVL #<OPC$_ROSTCANS*XFFFF>,R6 : set completion code 
7 d& O ce e : 108 CLRL R7 ; set loop variable 
0297'CF 3 d0 FB C6 § MOVL (R2)+,W*OPMSG+1 ; set pone type & ID 
8 DD 28 6 PUSHL #0 ; push a dummy parameter 
OAFE'CF 1 FB 04 6 8 CALLS #1,W*REG_SAVE ; Save a reg snapshot | 
40 6 SSNDOPR _S ASGBUF Su" OPMSG DESC,- 
407 640 CHAN=W“MBCHAN ; try _S form 
417 641 FAIL. CHECK SS$_NORMAL 3; check success 
0 00° 8F DD 417 PUSHL #SS$_NORMAL 
689 "CF 1 FB 041 CA rcs #1 »W™REG_ CHECK 
59°CF $ Fe 4 ak CALLS #0. W*SND_CHECK 3; check the rooylss 
0297'CF D 4 64 MOVL (R2)+, U-OPMSGe1 ; set opr type & 1 
DD Q042C 644 PUSHL ; push a dummy catenated 
OAFE'CF 1 FB Q4 3 45 CALLS oW*REG_ SAVE 3; Save a reg snapshot 
4 $$ SSNDOPR ar “SN ; try .G form 
43C 4 FAIL. CHECK sar -"9 3; check success 
00000000'8F pd 043C wh NORMAL 


‘ 
n 8 | , 
- TEM SER TESTS (SUCC S.C.) 16-SEP-19 0:4 AX/VMS Macro V04- Page 1 SA 
be SNDOPR rests tetris ogc - g- Hats 82:3 3 19 UETPSY.S STATE t: MAR; 1 >| vO 
. e. oP CHECK 
OES9" ft o) 8 rr $68 CAL i. usup Ch st ; check the results | 
AB 57 F rt: $30 as KObr Ss #9,R7,108 ; do all opr types | 
4 : 
i i ; REPLY tests to respond to requests | 
4 654 :- 
‘3 655 NEXT_TEST 
4 STP11: - 
0004 ‘CF DO 04 MOVL #11,W*CURRENT_TC 
ce OB OB a 
56 080808029 i 45 65 MOVL #<OPCS$ ROSfEMPLIEE-XFFFF>, R6 ; set expected status return 
96'CF 4 88 483 ro] MOVB #0 REPLY, W*OPMSG ; set the function 
98°Ct 6 BO 046 658 MOV R6 W*OPMSG+oPc$w_ ns SrAtus ; set status reply return 
O29a'CF D4 046d 659 CLRL © W*OPMSG+OPCSL_MS"RPCYI ; set the message ID 
O29E'CF Ste 138 660 MOVW W*TTUNIT,W*OPASGF Opts MS wet set the unit number 
O2A0'CF O14F *CF 05 23 478 661 sa fe 5 ve T TAR,WOPRS GOP OPCST _As_ NAME : ; set the device name 
_— Sba0' ¢ : beBs $68 - dOF MESG LEN, _MS POrERT z set the message text 
00 DD ae 664 PUSHL #0 ; push a dummy parameter 
am A | generace'l pend inp' request 
smespedecetle bac Fie 494 667 SSNDOPR_S RSGBUF =u"OPNSG DESC,- ‘ 
rey 668 CHAN= a HAN 3 try  S 
0444 669 FAIL ae To sete MAL ; check success 
OB08 er OY FB OGRA ACLS ears CHECK 
E59°CF 00 FB OQO4AF 670 CALLS $0 W*SND_CHECK 3; check results 
of 801C 8F BO 0484 671 MOVW acOrcae ROSTASORTE“XFFFFD, R6 ; set expected status return 
0298°CF 56 80 0489 67 MOVW R6,W*OPMSG+OPCSW_MS _STATUS 3; set reply status code 
00 OD 048 $38 PUSHL # 3 push a dummy parameter 
OAFE'CF Oi FB Q4C 674 010 zi wee SAVE 3 Save a reg snapshot 
OEB1'CF O00 FB 04C 679 cA ats £0 iy eiec — EQ 3 generate a pending request 
hy $$ PAIL. CHECK SS$_NORM : shell success 
OBB tr OF FB. Oebd CALLS eters CHECK 
Nae 8 FB 04D 678 CALLS #0" b> SND CH : check results 
56 8021 8F 8B rh} 679 MOV #<OPC$ ROSTPENDG*“XFFFF> R6 3 set expected sti ius return 
0298'CF S 8 04E8 680 MOVW »W*OPMSG+OPCSW_MS_ STATUS ; set the reply status code 
0 DD Q4ED 1 PUSHL #0" ; push a dummy parameter 
OAFE'CF 84 FB Seep 4 CALLS #1,W*REG SAVE 3 Save a reg snapshot 
OEBI'CF O00 FB Q4F& 6 5 CALLS . Sates i =V*OPHSG DESC. 3 generate a pending request 
= oe 
rh 3 ¢ $SnDOP , A a HAR : try _S and leave the request pendi 
: 2 9 686 FAIL = CHECK «$38.80 3; check success 
Boar Of FB SOF ir ‘sage CHECK | 
E59°CF ea. 514 687 CALLS ; check results | 
6 8084 8F 8B 519 6 Vw are BRS TCANGaxEEFE> 3 set expected status return | 
0298'CF 6 6B 1 6 3 Vid OE SOPRSesore W_MS eTATOS ; set reply status 
a { Bush’ a! dimny “parameter | 
' w* : Vv 
_ ” $95 $3) SSNDOPR 4 W*SNDO™ 5 try 


ssh 


O29A'CF 


00000000" 
0808 Cf 
ES9'CF 


F 
0 
0 


OAFE'CF 
0296" ff 


PFEFFER F 


0004 "CF f 
; 

1 

F 


1 al 8F 
0B08'C 01 


COOO@WWOOooO 


QED PV PVP PUPV PVD DUD IV PUPS PUDUPU SUSU SUS USUSVIUSUS USUI ISTITUTO 


DDD PS OO ODD INI PA MIE EB PEEP PPE EN IO 


SMM NET NA OO BD MNIMNUIUVIIVIVIMIO & & OO BS OWN NWI WII OU =< 


num 
_— 
wm 


693 


M SERVICE TESTS 


8 9 
(suc S.C.) 1 


wSEP=1984 Ouissia? YUE 
FALLCHECK $88, NORMAL 


s$ 
ni UPREG. CHECK 


CAL 
CALLS 10, GSN CHECK ; 


; DISABLE tests with _6 


STP12: 


NEXT_TEST 
MOVL  #12,W*CURRENT_TC 
PUSHL #0 
CA Ls #1,W*REG_SAVE 
MOVB  #OPC$_RQ_TERME,W*OPMSG ; 
CLRL W°OPMSG+OPC$B_MS ; 
OVL == uidabgr scorer MS_MASK : 
SSNDOPR NDO : 
FAIL. CHECK Re NORM ; 
reese NORMA 


CALLS #1, W*REG_ CHECK 


; ENABLE tests with _G 


STP13: 


NEXT_TEST 
MOVL  #13,W*CURRENT_TC 
PUSHL #0 
CALLS #1 W*REG_ SAVE 
MOVL #ALL_OPR,W OpnsFOPC Se MS_ENAB ; 
MOVL #-1,Q*°OPMSG+OPCSL_MS_MASK™ 
CLRW u-obmseroresy MS UN T 
hove W*OPNAME ,W“OPMSGTOPC$T_MS_ONAME 
OVL W*OPNARE #1, W*OPMSG+OPCST as NOManE + 
SSN DOPR_G W*SNDO ; 
FAIL. CHECK $S$_NORMAL : 
PUSHL ~ #SS$_N 


CALLS #1 SURES. CHECK 


; set disable ID 
; set operators to Fesbie 
; disable the alternate TTY 
; check for success 


/VMS Macro V04- 369 
TPSY.SRCIJSATSSSO5.MAR; 1 


3 check success 


check results 


; set the function cee 


set enable ID mask 

set all enables 

set unit number 

set name Abe. 

; set nam 

enable the coneete again 
check for failure 


soba 


56 


0320'CF 
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SNDSMB TESTS met 7 80:58:19 LIES eee ese MAR: ? . 
B 9 .SBTTL SNDSMB TESTS 
4 ; 
4 3; SSNDSMB tests 
4 5 ; The following request types cannot be tested because of the lack of a 
282 § 3; queueable device in the minimum configuration. 
353 f 8 ; SMRSK_ABORT, SMRSK_ASSIGN, SMRSK_JUSTIFY, SMRSK_ENTER 
+4 Q ; test SMRSK_INITIAL by creating quel and que2 
589 i- 
94 7 NEXT_TEST 
589 STP14: 
0004'CF OE dO 0589 MOVL #14, W*CURRENT_TC 
00 OD 58 PUSHL 
OAFE'CF 01 FB ef CALLS #1 W*REG SAVE 
CF OO46'CF ODE OSC 734 MOVAL W*SNOSMB,W*SERV_RAME 3; set service name 
CF O175'CF 8B Bae 735 MOVW W*MBCHAN,W*SNDS*SNDSMBS$_CHAN ; set the mailbox channel # 
53 Q320°CF OD 5D 7 § MOVA W*SMSG+2,R 3; set argument pointer 
OIAI'CF OE 2 th 7 MOVC #QUENAMIL ,W*QUENAM1, (R3) ; set the queue name 
53 a D 5D 738 MOVAL W*SMSG1, ; set to proper end of que name 
83 43 BF 90 OSE 739 MOVB #SMO$K_DETJOB, (R3)+ ; set to BATCH 
63 94 B3E 740 CLRB (R3) ; set option terminator 
00 DD O5SE9 741 PUSHL #0 : push a dummy parameter 
OAFE'CF O01 FB OQSEB re CALLS #1,W*REG_SAVE ; Save a reg snapshot 
ere 74 SSNDSMB_S MSGBUF = W*SMSG_DESC,- 
SF 744 CHAN = W*MBCHAN 3; try _S INITIAL 
600 745 FAIL_CHECK SS$_NORMAL ; check failure 
09090000" DD 0600 PUSHL ~- #SS$_NORMA 
0B0 So 3 FB pees CALLS #1,W*REG_CHECK 
00040001 8F 00 060 746 MOVL #JBC$_NORMAL ,R6 : set expected return status 
0E59°CF BS. 61 74 CALLS #0,W*SND_CHECK ; check results 
8 4E 8F 9 61 748 MOVB #SMOSK_DISWAP, (R3)+ : set to disable swapping 
8 40 8F 9 61B 749 MOVB #SMOSK_INIPRI,(R3)+ 3 set a new job priority 
83 re olf £29 MOVB #2, (R3)+ ; by default i 
83 4C BF 9 6 7 MOVB iy JOBLIM, (R3)+ ; a job Limit of 
83 ¢ 9 6 4 3 MOVB #2, (R3S+ : 
94 06 7 CLRB (R35) ; set the terminator 
O1AF ‘CF 3 28 06 754 MOVC3 MQUENAM2L ,W*QUENAM2 ,W*SMSG+2 ; set new que name 
DD 06 755 PUSHL ; push a dummy parameter 
OAFE'CF 1 FB 06 7 § CALLS #1,W*REG_SAVE 3 gave a register snapshot 
635A 7 SSNDSMB_G W*SNDS : init the next que 
et 758 FAIL_CHECK SS$_NORMAL ; check for failure 
00000000'8F DD 064 PUSHL ~ #SS$_NORMAL 
ay 4 FB 0649 CALLS #1,W*REG_CHECK 
E59°CF 0 FB é 766 . CALLS #0,W*SND_CHECK ; check the results 
6 761 ; 
re ree 3 test SMRSK_START by starting quel and que2 
6 64: 
i ee NEXT_TEST 
65 STP15: 


do. 9 
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V04-000 SNDSMB TESTS greet aas Bassesay LOETMee eaeTe ay eesee mans: e8e 2, 
0004'CF F DO 06 ; MOVL #15. W*CURRENT_TC 
FE'CF ° PB A Chet a w"nee SAVE 
OEE 2 60 F 166 MOVW a K START, *SASG ; set request code 
330'CF 4 64 76 g RB *SMSGT ; set for no start options 
o98 tee SNDSMB ¢ *SNDS ; try TART 
6 FAIL_CHECK SS$_NO ; check failure 
00000000 ' 8F 0D 74 ey L a3 NORMAL 
oes Ef d 8 85 77 CALL f0- ottisn 9 titre heck lt 
: check results 
0320'CF falc E 8 6 f iio mMOVC POQUENAMIES W*QUENAM1 ,W*SMSG+2 3; set que name 
8 DD ? 9 ae PUSHL ; push a dummy param 
OAFE'CF FB 77 CALLS APS Pl 3 SAVE ; save a reg snapshot 
69 774 SSNDSMB_G W ; start the next que 
; 69 775 FAIL ~CHECK ses. NORMAL ; check for failures 
00000000'8F DD 0699 PUSHL #SS$_NORMA 
pens F 01 FB 69F ACLS t x »W*REG_ CHECK 
OES9"CF O00 FB Q6A4 76 CALLS f0C W*SND _CHECK : check the results 
6A9 777 3+ 
06A9 778 ; 
06A9 779 ; test SMRSK_STOP 
06A9 780; 
Q6A9 781 ;- 
06A9 782 NEXT_TEST 
06A9 
6A9 STP16: 
0004'CF 10 DO 6A9 MOVL #16,W*CURRENT_TC 
00 DD O6A PUSHL # 
OAFE'CF 01 FB 068 CALLS #1 Ww nese _— 
O3SiE'CF O07 BO 06B 783 MOVW PSHRSK STOP, W 3 set request code 
06BA 784 SSNDSMB_S nSGeOF = otsns DESC,=- 
06BA 785 CHA oo HAN 3 try _S STO 
6CA 786 FAIL ~CHECK SS$_ NORM : check ici tore 
00000000'8F DD O6CA PUSHL assse NORM 
0B08' CF 4 FB 6n CAL ts #1 UFREG. CHECK 
tee 0 FB 06D 787 gas #0, USN ND_ CHECK 3; check results 
OSIE'CF O02 BO Q6DA 788 #SARSK START, W*SMSG ; reset request code 
O6DF re? SSNDSMB ; restart the queue 
Roce 790 FAIL “CHECK S83. NORMAL : check failure 
00000000'8F DD 06E PUSHL ~ #SS$_NORMAL 
OB08'CF 01 FB ber CA ite . »W™REG_ CHECK 
OE59"CF O00 FB O6F 791 CALLS #0,W*SND_CHECK ; check results 
6F 35 3+ 
6F 793 ; 
oF 794 ; test SMRSK_PAUSE 
is 795 ; 
f £38 i- 
: 79 NEXT_TEST 
F STP17 
0004 'CF 11 DO O6F MOVL #17,W*CURRENT_TC 
00 DD 6FD Sy L 
AFE'CF 4 F Orr LS W*REG_SAVE 
31E‘CF 3)6hC«iB 4 38 OVW bSHR K pause, W's SASG 3 set request code 
709. «79 SSNDSMB m mSGBOF = W°SMSG_DESC,- 
7 4 ge CHA “MBCHAN z try _S PAUSE 
7 1 FAIL_CHECK SS$ "NORMAL : check failure 
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$002000 SNDS ESTS iets 1 9:58:19 UE They. SAE TSAYSSSOS MAR: 1 . 43 
00000000'8F DD eysit #SS$_NORMAL 
BY VCE 1 FB CALL #1 ,W™REG_CHECK 
§ VCE 8 fe ; check results 
1E'CF B the request code 


; reset the queue state 
; check failure 


VW 
SSNDSMB_G W*SNDS 


; CALLS #0,W*SND_CHECK 
; MO #SARSK_ START, W°SMSG 
05 FAIL CHECK SS$_NORMAL 

PUSHL 


Sete tee 
me 
® 
wo 
® 
7 


00000000'8F dD #SS$_NORMAL 
p80 *CF Bt FB CALLS #1,W"REG_CHECK 
OE59'CF 0 6 CALLS #0,W*SND_CHECK ; check results 


test SMRSK_CREJOB, SMRSK_ADDFIL, SMRSK_CLSJOB 


NEXT_TEST 


OOOCCCCOCCOCCOCOCCCOOCO OOOO OOOOCCOOOOOOOOOOoOOoOO oS 


0004'CF 12 ve) MOVL #18,W*CURRENT_TC 
00 DD PUSHL 
OAFE'CF 01 FB CALLS #1 ,W*REG_SAVE 
813 SCREATE FAB = W*FAB 3; open the command file 
SE 814 SCONNECT RAB = W*RAB 3 connect up 
9 15 SPUT RAB = W*RAB 3; write the command file 
4 1 MOVAL W*REC1,W*RAB+RABSL_RBF 3 set rec #1 address 
B 81 MOVW  #RECI_SIZE,W*RAB+RABSW_RSZ : set rec #1 size 
0 18 $PUT RAB = W*RAB : write record #1 
19 MOVAL W*REC2,W*RAB+RABSL_RBF 3; set rec as address 
0 MOVW  _#RECO SIZE, W*RAB+RABSW_RSZ > set rec #2 size 
1 SPUT RAB = W*RAB 3; write record #2 
7S § SDISCONNECT RAB = W*RAB 3; disconnect 
D SCLOSE FAB = W*FAB : file S05.COM now exists 
O2FO'CF OF 8 4 PUSHAL W*OL1 : set option List #1 
O2FO'CF OF C 5 PUSHAL W*JN1 3; set job name #1 
OCFDO'CF O02 FB 8 x CALLS #2,W*CRE_JOB ; put a job in the que 
8 ; 
4 : ; ; test SMRSK_ALTER on job #1 to release it 
7 : 1 j- 
7¢ 2 NEXT_TEST 
7¢5 
te STP19: 
0004 'CF 13 dO 7C¢ MOVL #19,W*CURRENT_TC 
69 DD 7CA PUSHL @# 
OAFE'CF 1 F 7CC CALLS #1,W*REG_ SAVE 
Qgie’ee 0D 8B 701 : 3 MOVW #SMRSK_ALTER,W*SASG 3 set request code 
0320'CF of 706 4 MOVA WSHSGte. ; set message buffer pointer 
63 1A1°CF OE ope 5 MOVC #QUENAMIL ,W*QUENAM1, (R3) 3 set the que name 
; eh D 7E § MOVAL W* . 3; set to correct end of que name 
E7'CF 7E6 MOVW W*JOBID, (R3)+ 3 set 
| $§ ‘EB 3 MOVB #SMOSK_JOBPRI,(R3)+ 3 set optt n code 
7EE MOVB 1,(R33+ 3; set the job priority 
63 94 O7F 9 CLRB (R$) : terminate the option List 
BY DD O7F 4 PUSHL “ 3; push a dummy parameter 
OAFE'CF 1 FB OQ7F $s CALLS #1,W*REG_SAVE ; save a regi ater snapshot 
7FA 4 SSNDOSMB_G W*SNDS ; try G “ ER 
803 44 FAIL_CHECK SS$_NORMAL ; check failure 


BO NANNNNNNSNIDNO VM OLE TO 
Mm—OOONO 
uw 
=~ f +> 
vw 
— 
co 
eee CCT CC CLL LL LL LLL LD 
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5002800 SNDSMB eESTé g- seri oke bs +38: 19 UETPSY.S Free reese MAR: 1 . $3, vO 
QO000000'8F DD PUSH : S$_NORMAL 
oB08* Cr 0 FB 69 CALLS #1,W®REG_CHECK 
CF 0 FB : ig CALLS #0, be supe _CH HECK 3 check results 
1 47 : 
} rt ; test SMRSK_RELEASE on job #1 | 
1 50 ;- 
} 51 NEXT_TEST 
1 STP20 
0004'CF 14 po 1 MOVL i oW*CURRENT_TC 
80 DD 1 PUSHL 
OAFE'CF 1 FB 1A CALLS W*REG_SAVE 
ZiE'CR OF 80 1F 853 MOV ASHE RELEASE WSMSG : set request code 
0330'CF Oce7 cE 8 08 4 85 MOVW JOBIO ,W*SMSGi : set job ID 
O332'°CF 94 0828 854 CLRB Ww sh SG1+ 3 set no options 
082F 855 SSNOSMB_G W*SNDS ; try .G RELEASE 
08 : 856 FAIL. CHECK A NORMAL 3; check failure 
00000000 ' 8F DD 083 #SS$_NORMA 
OBO8'CF 01 FB i rts #1 ,W*REG_ CHECK 
OES9'CF OO FB 084 857 CALLS b0- USN. CHECK 3; check results 
pees 858 ;+ 
Bae 859 ; 
1 60 ; test SMRSK_SYNCJOB on job #1 
084 61 ; 
084 66 ;- 
0848 86 NEXT_TEST 
0848 
0848 STP21 
0004 'CF 15 DO 0848 MOVL #21,W*CURRENT_TC 
89 DD 084D PUSHL 
OAFE'CF 1 FB O84F CALLS REG_ SAVE 
O31E'CF 11 BO 0854 864 MOVW = #SMRSK syncoe W*SMSG : set request code 
0330'CF Oce7 CE B0 859 RAS MOVW  W*JOBIO,w*SMSGi > set job ID 
O332°CF 94 60 866 CLRB W*SMSG1+2 3: set option List end 
0864 567 SENDSMB G W*SNDS 3; try SYNC JOB 
086D 68 FAIL_CHECK SS$_NORMAL : check failure 
00000000 ' 8F DD B38 PUSHL ~ #SS$_NORM 
0B08' CF gt FB Be a #1 »W*REG_ CHECK 
56 00000000'8F 00 7 69 MOVL #SS$_NOR R6 ; set expected status return 
OE59'CF 00 FB 7 70 CALLS #0,W*™SND_CHECK : check results 
56 00040001 8F 00 4 71 MOVL #JBCS NORMAL ,R6 3 set expected status return 
§ ie STRNLOG_S LOGNAM = W YES_DESC,- 
7 RSLBUF = weSYM_DESC, ~ 
74 DSBMSK = #5 : look for the group symbol 
50 00000000'8F 01 A 75 CMPL #SS$_NORMAL ,RO ; is it there? 
13 A 7 BEQL : br if b 
ede DF AB 7 PUSHAL W“BAT_IMP_EXC ; push error message address 
OB4A'CF 1 FB “ 4 108 CALLS) #1,W*PRINT_FAIL ; print the failure 
4 ? SDELLOG_S LOGNAM = W*YES_DESC ; dump the lo tea} name 
t SERASE FAB = W°FABI ; delete the log file 
cE 3 
43 : ; test SMRSK_RMVJOB on job #2 
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cE 86 ;- 
3 89 NEXT_TEST 
CE STP22: 
0004'CF 8 4 oS sot G5 ot CURRENT 7 
~e T gf FB D CALL #1,W*REG_SAVE 
FE'CFE OF DA 43 PUSHAL W*OL 3 set option List #2 
Q3507°CF OF D 9 PUSHAL W*JN 3; set job name # 
FO'CF be F E 90 CALLS #2,W*CRE_JOB ; put job #2 Sn the que 
1E'CF Cc «6B E 91 OVW #SMRSK_RAVJOB,W*SMSG 3; set request code 
0330'CF ez CE 0 O8E 36 MOVW  W*JOBID,W*SMSG1 : set jo 
2'cr 4 F 9 CLRB W*SMSG1+2 3 set no options 
00 DD F 94 Syem #0 : push a dummy parameter 
OAFE'CF O1 FB F9 95 ALLS  #1,W*REG_SAVE ; save a reg snapshot 
+44 36 SSHDSMB G W*SNDS 3; try .G and nai the last job 
90 9 FAIL_CHECK SS$_NORMAL : check failure 
oBostr 1 FB 0908 CATS FT GENES CHECK 
OES9"CF OO FB 0312 898 CALLS #0,W*SND_CHECK : check results 
0917 900 
0917 901 ; test SMRSK_MERGE on job #3 
$917 908 
at 904 NEXT_TEST 
0917 STP23: 
0004'CF i . 344 poeta Sea elt CURRENT 5 FE 
OAFE'CF 01 FB 031 CALLS #1,W*REG_SAVE 
18 DF 09 905 PUSHAL uc 3; set option cigs #3 
O311'°CF ODF 09 906 PUSHAL *JN3 3 set job name 
Ocro’ se 02 FB Q9 907 CALLS #2, W*CRE_JOB ; put job 3 in the que 
5 te DE 09 908 MOVAL W*SM G, ; set address 
8 04 B60 093 909 VW aSAnSK MERGE, ¢ 3 set request code 
63 O1AF'CF OF 2 938 310 MOVC3 NARZL SE aUENAN2, (R3) : set queue name 1 
53 Q330'CF OD 9 5 91 MOVA uns ; get to correct end of name 
63 O1A1'CF 0 94 91 MOVC SaPeiat’ maven 3; set queue name 2 
02 A 4 0949 91 CLRB 3: set no options(*watch que name len 
0 ODD Q94C 914 PUSHL 40 ; push a dummy parameter 
OAFE'CF 1 FB 094 915 CALLS #1 »W*REG_ SAVE 3 save a reas snapshot 
95 218 SSNOSMB_G ue SN om 3; try GM 
95¢ 91 Seog sos. ; check sotlurs 
oBoscr Ot FB $60 ito CHECK 
+c 80 FB 096 918 CALLS 40, LS sup ; check results 
1E°CF D 43% 919 MOVAL wW*SMSG, ; set message address 
F 971 9 ? MOV #SMRSK_RELEASE, (R3)+ ; set request code 
63 O1AF'CE OE 974 9 MOVC3 #QUENARZL W*QUENAM2, (R3) > set the que name 
3 370 tr D 97A =O g MOVAL SMSG 3 get to the end of the quenam 
83 CE7'CF 8 O7F 9 MOVW We J0BID, ER3)4 ; set the job ID 
94 0984 924 CLRB 3; set no options 
DD Q9 $ 925 PUSHL 0 ; push a dummy parameter 
OAFE'CF FB O9 9 § CALLS #1 gi RES. SAVE 3 Save a regisser er snapshot 
98D 9 SND SMB G W*SNDS™ ; release 
996 928 FAIL_CHECK 583 NORMAL ; check for fa ae 
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VO04- SNDSMB TESTS Breer aae Bassesey PORTMee eeese VOtsOe ans PAM 23, 
00000000'8F DD 0996 PUSHL . S$$_NORMAL 
B08 Ct 1 FB 44% CALLS ,W™REG_ CHECK 
4 "CF 9 fe 9A 4 7 CALLS #0 bE Supe CHECK 3 check the results 
1E'CF B 9A6 0 MOVW #SARS K_SYNCJOB,W*SMSG ; set request code 
SAB O93 SSNDSMB_G Oren S$ ; sync on the job 
00° - +} 932 FAIL “EMEC ae “PRES, NOR : check for failures 
F SBA eke vPReG. CHECK 
56 ct §00 000' i D8 9BF 933 MOVL g its NO R6 i set the expected status return 
of 90 FB 9(6 934 CALLS #0,W™SND_ CHECK : check the results 
56 8046001 ae 9C 5 ear #J6C$_N NORMAL ,R6 ; set the expected status return 
9D § STRNLOG. 4 *LOGRAR = W“YES_DESC,- 
3059 fesse look for th bol 
i loo or the group symbo 
50 00000000°8F D1 gerd 989 CMPL ans eNORMAL_RO iieuwmcd: 
09 = «13 Fg 940 BEQL ; br if bk 
0164'CF ODF OQ9F 941 PUSHAL W*BAT_IMP_EXC ; push error message address 
OB4GA'CF 01 FB 844 4) 108 CALLS ei UC PRINT™ FAIL ; print the failure 
+43 944 SDELLOG_S LOGNAM = W*YES_DESC ; dump the logical name 
ADA 945 ;+ 
QAODA 946; 
QAOA 947 ; test SMRSK_DELETE 
QAODA 948 ; 
QADA 949 ;- 
OADA 950 NEXT_TEST 
OAOA 
AOA STP24: 
0004'CF 18 dO AOA MOVL aes. »W*CURRENT_TC 
00 DD OAOF PUSHL 
OAFE'CF 01 FB OA11 CALLS #1 W*REG SAVE 
OS1E'CF 07 BO OAI6 951 MOVW — ASHRSK STOP W*SMSG ; set request code 
0320'CF O1A1'CF OE $e pale 828 MOVC3 PQUENARIL, W*QUENAM1 ,W*SMSG+2 ; set the que name 
0330'CF 4 OA 95 CLRB W*SMS 3 set no options 
00 DD OA2? 954 ln #0 ; push a dummy parameter 
OAFE'CF O01 =FB OQA29 955 CALLS #1,W*REG_SAVE 3; save .. 4 snapshot 
OA 5 956 SSNOSMB_G W“SN <* ; stop q 
OA 957 FAIL =CHERK SS$_N 3 check ‘or failures 
opopo90e" 8F DD 0A37 NESS$. NORMA 
0B08' 01 FB OQA3D CAL sts #1,W"REG_ CHECK 
0E5 Ef 00 =6F AS 958 fan | #0, U> SND D_ CHECK 3; check the results 
O320'CF O1AF'CF OF 2 A4 959 MOVC PQUENAMOL W*QUENAM2 ,W*SMSG+2 3 set the que name 
+ DD OASF 960 Ste ; push a dummy param 
OAFE'CF 1 £B ve) 961 LLS ss # genes. SAVE $ oe :. re snapshot 
A56 308 Seb SMB GW : 
ASF 696 FAIL =CHECK SeSLN ; i \ee failures 
00000000'8F DD OASF PySh NOSSScN 
9008 ce 1 FB OA65 #1 “wenes_c CHECK 
06? “ Sr? A6bA 964 CALLS bOe LE Sup K : check the results 
O3SIE'CF 1 8B AGF 965 MOVW #SPRSK DELETE. w*SMSG 3 set the request code 
A74) 996 SSNDSMB_G W*SN : delete the que 
A7D = 96 FAIL_CHECK SS$_NO ; check for failures 
00000000 ' 8F 0D A7 okie were AL 
Boge 1 FB OA ALLS #1,W"REG_CHECK 
E59°CF 0 EB A 368 CALL §0e W*SND_CHECK : check the results 
0320'CF 1A1°CF E 2 A8D 9 MOVC SQUENAMI CS W*QUENAM1 ,W*SMSG+2 3; set the new que name 
0 PUSHL #0 3; push a dummy parameter 
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OAFE'CF O01 #4FB QA97 7 CALLS #1 REG. SAVE ; save a reg snapshot 

A 7 SSNDSMB_G W*SND ; delete the last que 
AA 7 FAIL_CHECK S83 lN ; check for failures 

8990000" sf DD OAA te “SSB. 

oBgaet FB QAA CA vTREG. CHECK 

CF : FB QAB 74 cALLS #0,W*SND_CHECK ; check the last results 
AB 75 ERASE FAB=W*FAB ; delete the .COM file 
AC 8 SERASE FAB=W*F ABI 3; delete the .LOG file 
AC 7 SDASSGN_S CHAN=W“MBCHAN 3; drop the mailbox 
AD? =: 978 TEST_END 

‘BL DD AD? PUSHL W*TMD_ADDR 
a: DD QADB PUSHL W*TMN~ ADDR 
OD ADF PUSHL # 
004 DD QAE1 PUSHL W*M G_ CODE 
00000000 ' GF ¥; FB AES CALLS #$$T17G*LTBSSIGNAL 
0046'CF 01 1C FO OAE INSV  #1,#STS$V_INHIB_MSG,#1,W*MOD_MSG_CODE 
0044 OD AF PUSHL w*MOD MSG CODE 
00000000 ' GF 6 FB OAF CALLS #1,G*SYSSEXIT 
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UETPSY.SRCJSATS 
a -SBTTL REG_SAVE 
FUNCTIONAL DESCRIPTION: 
Subroutine to save R2-R11 in the register save location. 
CALLING gee” 
PUSHL # ; save a dummy parameter 
CALLS #1,W*REG_SAVE ; save R2-R11 
INPUT PARAMETERS: 
NONE 


OUTPUT PARAMETERS: 
NONE 
REG_SAVE: 
.WOR “M<R2,R3,R4,R5,R6,R7,R8,R9,R1I0,R11> 
pee #42) »*K14(FP) .W*REG_SAVE_AREA ; save the registers in the program 


~SBTTL REG_CHECK 


FUNCTIONAL DESCRIPTION: 
Subroutine to test RO & R2-R11 for pro er content after a service 
execution. A enapeher is taken by the REG_SAVE routine at the 
beginning of each step and this routine iS executed after the 
services have been executed. 


CALLING SEQUENCE: 
PUSHL #SS$_XXXXXX 3 push expected RO contents 
CALLS #1,W™REG_CHECK ; execute this routine 


INPUT PARAMETERS: 
expected RO contents on the stack 


; OUTPUT PARAMETERS: 
; possible error messages printed using SPUTMSG 


aa 
+ 


REG_CHECK: 
«WORD “M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> 
CMPL 4(AP) ,RO : is this the right fail code? 
BEQL 10$ ; br if yes 
PUSHL R ; push received data 
PUSHL  4(AP) 3 push expected data 
PUSHAL W*EXP ; push the string variable 
108 ALLS #3,W°PRINT_FAIL ; print the error message 
CMPCS #410,°X14(FP),W*REG_SAVE_AREA ; check all but RO 
BEQL : br if O.K. 
set acre SAVE_AREA,R3,R6 ; calculate the register number 
ADDB #*X2,R6,-(SP) 3; set number past RO-R1 and save 
Biet ? Rt ; backup to register boundrys 
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sous : Ree CHER eee See eee * ~3FF=} 38 82: 38; 19 YUETPSY. eRe sSayeesos. MAR; 1 28 
; ush received data 
6 DD if : , PUSHE (RS) ; bush expected data 
OOC9'CF ODF if 1 : PUSHAL W*REG ; set string pntr param. 
OB4A' CF 6% FB re} ! rk 208: CALLS #4,W*PRINT_FAIL ; print the error message 
4 “= Oat 
. bck + -SBTTL PRINT_FAIL 
¥ NCTIONAL DESCRIPTION: 
am og 3 fu . "abteck ing to report failures using SPUTMSG 
: NCE: 
tA : #8 : =a SoSH HL EXPECTED Mode #2 PUSHL REG NUMBER 
6A 1 30 ; PUSHL R ECEIVED PUSHL EXPECTED 
OB4A 1 : 
: P PUSHAL STRING_V 
Sac i f : cALLS 48, . PRINT — CALLS # wa weP RINT FAIL 
: PUSHAL S$TRING_VAR 
tA i 32 : aes CALLS #1,W*PRINT_FAIL 
ORCA 1989 : INPUT PARAMETERS: 
peed 1928 3 listed above 
; OUTPUT PARAMETERS: : 
tees 1969 3 ete an error message is printed using SPUTMSG 
ORCA 1968 : 
4A 1064 
aBéA 1065 PRINT.FAIL: ances bt 
ape Opec 1909 FAO S$ unCSt WPAESSAGEL, W*MSGL ,ATEST_ MOD ee ee Ae Tc 
06 6c 91 bBo 1066 it aes PS = ifs 2 a register message? 
r 
01 ge i 3H 1071 CnPB (ap) : 3 this just a message? 
48 13 08 107 BEQL yes 
ig zi “W°MSGL.4(AP) (AP) .4 (AP ~12CAP) 
40 11 oB88 1078 Ht Sos es ; goto output message 
OBA9 1075 10$: 
- a ‘ 4(AP), 16(AP), B( AP) ,4( AP), 16(AP) ,12¢AP) 
19 #11 Ope ti BRB Sos (Ringetama = ten ; goto output message 
op 1078 os a ; string address 
7 ~s ns dep i SPUTMSG Swengevern : Sriat the Sessaee 
es ps 16 ? BRB “408 ; skip the other message 
£3 i : _ SPUTMSG_S W*MSGVEC ; print the message 
FA 1084 40$: 
“m0 ; identify the mode 
PEC  Sozatee OF a i 3 hove otesten PAIL, W*TMD_ADDR 3; set latluee mesgage address 
Diabet 88 65 5 1 $ INSV #ERROR, # TROD #3,W*MOD _MSG_CODE ; set severity code 
0044'CF 03 2 he : ' its 
COE ! § -SBTTL READ_CHECK 
COE 3++ 
: RIPTION: 
¢ E : i : apni te tan 3 oy Shy met a mailbox and check the status returned 
COE 1 38 : from the SSNDACC system service. 


SATSSSO5 - SATS SYSTEM SERVICE TESTS sucks” S.C.) 16-SEP-1984 AX/VMS 0 V04- Pa SAT 
$042000 READ_CHECK $78 EP-1984 38:19 LUE TeSys Y.S RESSaySSs0s. MAR: 1 ” es Tat 
C 1 3 3 
C 1095 ; CALLING SEQUENCE: 
; ; ! 38 : CALLS #0,W*READ_CHECK 
C ; 1 38 ; INPUT PARAMETERS: 
: ; ! 99 ; NONE 
COE 11 ? ; OUTPUT PARAMETERS: 
COE 11 § 3 NONE 
¢ ; 1105 ; 
C 1104 ;-- 
COE 1105 
COE 11 § READ_CHECK: 
003c OC 11 -WORD “M<R2,R3,R4,R5> 
€10 (11 8 $al0W_S FUNC=#10$ READVBLK 
c10 (11 CHAN=W“MBCHAN, 
C10 1170 [OSB=W*STATUSA, - 
C10 1111 1 a MBUF ,- 
C1 Wiig P ; read the mail 
O000'SF O17B'CF 861 cS 111 CMPW UMBUF -AMSGS_ACCRSP : correct response type? 
22 we OO 3 1114 BEQL 10$ : br if yes 
6 DD OC40 1115 PUSHL oo ; push received 
0000 sh DD O0C44 1138 PUSHL #MSG$_ACCRSP ; push expected 
O156'CF DF OC4A 111 PUSHAL W*EXP 3; push otring variable 
FEF7 CF O3 FB 38 1133 108 CALLS #3,W*PRINT_FAIL ; print the failure 
00040000 ' 8F O17F ‘CF D1 cs 1120 CMPL WAMBUF +4 #4816! SS$_NORMAL ; check the results 
13° 13 «OcSt «(1121 BEQL 208 ; br if OK 
4 A age OD c5 11 § PUSHL W*“*MBUF+4 3 push received 
00040000 ' 8F OD C6 11 PUSHL #4816!SS$_NORMAL 3; push expected 
O156"CF DF OC6B 1124 PUSHAL W*EXP 3; push the string variable 
FEDS CF 03 FB Coe 1125 CALLS #3,W*PRINT_FAIL ; print the failure 
0c71 11 § 20S: 
04 OC71 11 RET 3 return 
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v04 CRE. JOB greeer ihe BUSSES PONE NSS Secs WOR Re aan:1 OMe 78, 0 
LSBTTL CRE_JOB 


FUNCTIONAL DESCRIPTION: 
Routine to enter a job in queue #1 


ceo SEQUENCE: 


PUSHAL W*OPTION_LIST ; counted ption list ending with a 
: e 
PUSHAL W*JOB_NAME ; epunted fe name ending with a byte of 0 
CALLS #0,W*CRE_JOB 3 check buffer 


INPUT PARAMETERS: 
Listed above pl 
Location MBCHAN 


OUTPUT PARAMETERS: 
Location JOBID contains the job ID of the created job and 
the job is placed in QUE # 


plus yate ed NAMBLK to proper copnene file and 


nit 
nited to the mailbox channe 


oo pole lo leololololeolololololo) 
POVVOVOIOOOOOOOVOODOOOOAIOIOAIOAOIAOOOOOOOONS 
BOON NN 

Ok kd 
a ed od 
PVP BBS BS BS BE AAA NAINA 
PWN 9 ODNOAU EW" O OONO UNS wr" 00 


CREATE: ; create a job message buffer 
00000032' «LONG CR sfSGsiz 
00000C 7A" 6 -ADDRESS .34 
4 “WORD SMRSK K_CREJOB 
55 51 SF 54 41 42 SF 50 54 45 33 29" f sASCIC /UETP_BAT_QUE1/ 
go C 
00000c8C A -BLKB 2 
C OPTIONS: 
OQOOO0CA C -BLKB 32 
0000003 CAC CR_MSGSIZ=.-CREATE-8 


ADDF ILE: ; add a file message buffer 


1155 
1136 
113 
HE 
QO00003E* OCAC 1160 .LONG _AD_MSGS1Z 
00000CB4" 0CBO 1161 :ADDRESS .F 
000A O0CB4 1168 “WORD | SMRSK_ADDFIL 
CB6 1163 DEVICE: 
00000CC6 OCB6 1164 .BLKB 16 
CC6 1165 FID: 
ooo00ccc OCC6 1166 .BLKB 6 
oooocn2 ocee 1168 ake 6g 
4D 4F 43 2€ 35 % 38 00° tbe 1189 SASCIC /S05.COM/ 
QO000CE7 OCDA 1170 -BLKB 13 
CE? 1171 JOBID 
0000 OCcE?7 11% .wORD 0 
CE9 1173 JOB_NAME: 
coooorss Sy ae 
o00000%e CF 1176 AD_MSGSIZ=.-ADDFILE-8 
CF2 1177 CLOSE: ; close a job message buffer 
ca en 
8 crA et -WORD MRSK_CLSJOB 
000000: CFD 1182 CL_MSGSIZ=.-CLOSE-8 


| SA] 
1 
n 9 AX/VMS Mac Page 3 vod 
-SEP=1984 00:46:1 R:1 (2) 
= SATS SYSTEM SERVICE TESTS (SUCC S.C.) Vg~$EB-1986 00 +38: 19 Yaa vey. cae ieate oesbS. MA | 
SATSS5Q5 CRE_JOB | | 
CFD 1183 ; 
7F CFD 1 5 os A08 WORD i) i Saialbaaneteae “Paet the option List pointer 
56 08 ac pO tre 118 ROVEBL (RG) * RY get the option Uist 
5 8 oA 508 1 Oves’ RY (R6) .W*OPTIONS : i ot the option | + PRES | 
So"5 } DIO +1190 MOVZBL Sette set the job name 
po ce 8a OF BB OTS ide3 move it iosiz.y U*NAMBL NAM ui’ WariD ¢ set the FID 
F WD 
FFA CF 6 ee ORE D3 1198 MOVC DIDSIi -u- US KARBLK MARS wii et device name size | 
FFAS CF CA'CR =(06 D29 «119% MOVZBL W*NAMBLK+N nclude the count byte a 
war, ER Hs Bits vemgiconmer ovtchertlee athe Sst pn | 
FF7E CE O3B4'CF 8656 6 1199 OVvL # Sats _NORMAL ,R6 cr © hoe waresener 
56 00040001 BF DO 0088 1197 ri or ; Save a reg snapshot 
FDBS CF 01 FB ae 1133 SSNDSMB mS Ascaur” = = UPRBCHAN : create a job. 
Opae 1301 ECK S$$.N NORM AL ; check for failure 
0056 1202 FAIL_CHECK SS #538, NORMA AL 
00000000'8F oD CALLS # Sabah the Peouken 
Beso" CE th fe ab5¢ 1303 CALLS 40 usp CHECK : Save the job ID 
rF7A CE ON7D'Cr BD Oped 1308 SSNDSMB_S CHAN = : = U-RBCHAN g add the file 
D6D 120 ; check for fa 
$D9D 1509 FAIL ~CHECK $S$_NO 2 ee$ NORMAL zs 
rDBO CF Of FB Op8s CALLS fOcu Lies no’ ChecK ~~ ; check the results 
0E59°CF 00 oh opp 1308 $SNDSMB 5 Ascaur- 4. week eaten  clese the ied 
D 1210 
gbge 121 PSM, 
000000"°8F DD CAL its ; check the results 
FD60 CF 01 FB ODAS 12 CALLS #0, W*SND_CHECK e cnece eer core 
ODAD 131 RET 


ggA . ilures 
FAIL oe “To -_ *NORMAL 3; check for failu 
} 
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y042000 BUF _CHECK green 188s 88 +3: 19 UETPSY.S Meese ayeesos MAR; 1 ° 3) 
1 } 3 -SBTTL BUF _CHECK 
DAE 1 1 : FUNCTIONAL DESCRIPTION: 
DAE 1218 ; Routine to check the contents of a buffer against known good 
BAF } 19 ; data. 
DAE 1201 ; CALLING SEQUENCE: 
ot } § 3 CALLS #0,W*BUF_CHECK 3; check buffer 
DAE 1224 ; INPUT PARAMETERS: 
DAE 1225 ; R6 = buffer address 
DAE 1 § 3 R? = good data address 
yy: : ; R8 = byte count 
DAE 1 5 : OUTPUT PARAMETERS: 
DAE 12350 ; NONE 
DAE 1231 ; 
DAE 938° 
DAE 1234 BCSD: 
00000050 + 1235 -LONG 80 
00000DB6' pas ! 8 eceur -ADDRESS BCBUF 
00000E06 apBe : 8 aress -BLKB 80 
00000000 Oe6 1240 -LONG 0 
00000086" be 4 : re panei -ADDRESS BCBUF 
QO000E1A OEE ‘§ " \BLKL 3 
EIA 1245 BUF_CHECK: 
O7FC OETA 1 6 -WORD “M<R2,R3,R4,R5,R6,R7,RB,R9,R10> 
59 6 DO OEIC 124 MOVL R6,R9 ; save a copy of of Pg buffer address 
66 67 4 $3 elf 1 ‘3 CMPC3 = RB, (R7) , (RO) 3 check the 
13 0E23 124 BEQL 108 : br if goo 
5A E6 AF ODE OE ; 1250 MOVAL B*“PARAM1,R10 ; set parameter pointer 
A 63 9A OE29 1251 MOVZBL (R3),( 16)+ > save bad data 
BA 1 QA QE2C 1 26 wove (R1),¢ )+ 3; save good data 
8 3 9 C3 OE2F 125 SUBL R9,RS,(R10)+ ; save byte offset 
SA ODBAF ODE OE 3 1254 MOVAL B*PARAM1,R10 ; reset address pointer 
E 1255 SFAO_S CTRSTR = W*CS6,- 
E37 1 : OUTLEN = W*BCOSD,- 
E37 1 OUTBUF = W*BCSD,- 
E37 1 28 Pl = (R10)+,- 
E37 1 P2 = (R10)+,- 
E37 1 $9 P35 = (R10)+ ; make the string 
B3 AF ODF OE 126 PUSHAL B*“BCOSD ; push the string variable 
FCF2 CF O01 FB : ; : ¢ 108: CALLS #1,W*PRINT_FAIL ; print the failure 
ER 1264 : RET 3; return 
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SATSSSO5 = SATS 
y04-000 SND. CH " RCISAT 


Se shah sb sh sb Ab Ab Ab Ab Ab Ab Ab Ab Ab Ab Ab Ab ab Ab Ab Ab Ah dh A ad 


50S .maR:1 
~SBTTL SND_CHECK 


++ 
FUNCTIONAL DESCRIPTION: 
: qoye whe to check the contents of a buffer against known good 


CALLING SEQUENCE: 
; CALLS #0,W*SND_CHECK ; check buffer 


: INPUT PARAMETERS: 

: R6 = expected status code 
: OUTPUT PARAMETERS: 

; NONE 

$ 


ND_ CHECK: 
.WORD “M<R2,R3,R4,R5> 
$Q10W_S FUNC=#10$ READVBLK,- 

CHAN=W“MBCHAN, = 

TOSB=W*STATUSH, ~ 


003¢ 


=W*MBUF ,- 
, P2 =#80 3; read the mail 
00000046 ' 8F 0171'CF D1 CMPL W*SERV_NAME ,#SNDSMB ; SNDSMB or SNDOPR 
> 3 BEQL ; br if SNDSMB 
56 O17D'CF 861 8 CMPW W°MBUF 4OPC$W_MS_STATUS,R6 ; correct response type? 
C 13 OE9 BEQL ; br if yes 
O17D'CF DD 9 W*MBUF+OPCSW_MS_STATUS ; push received 
0B i 4 108 BRB 20$ ; br to common code 
56 O17F'CF 01 9 CMPL W*MBUF +4,R6 3; correct status return? 
gee | 9 BEQL 30$ ; br if yes 
O17F'°CF DD 208 PUSHL W*MBUF+4 ; push received 
56 DD A PUSHL R6 3; push expected 
O15S6"CF OF A PUSHAL W*EXP 3 push arene variable 
FC9A CF O03 FB 308 CALLS #3,W*PRINT_FAIL ; print the failure 
04 


RET 
-SBTTL GENREQ 


++ 
FUNCTIONAL DESCRIPTION: 
routine to generate a pending request for SSNDOPR 


: CALLING SEQUENCE: 
; CALLS #0,W°GENREQ ; generate a pending request 
: INPUT PARAMETERS: 

: NONE 

: OUTPUT PARAMETERS: 

: NONE 


GENREQ: 


a a ed dd 
RONON “DOOD ODOOOSOO OOO OOO OOO WWW 090909 C9 O09 SINISE NNO 


ROOD NAME WN OOD NAME WIN OS OO NOAUN EWN 8 ODN UNE WI O OONIO EW OOONO 
uv 
— 
wn 
= 
e 


ee OSL OAL RAL OAL AAI AAI ASL AA BAL ALL ASL AAL RAL BAL BARA AAS ee ee eel elas eel esl esl esl esl eles esl esi osl alos esl esl esl oslo esl eel edl esl oti es loti os) lei esl esl esl esl esl onl 


SOOoOoCoCOCOCOOCOOOCSOOCOSOOSCOOOSO OOOO OSOOOOOOOOOOCOOOOoOO 


Page 33 
rs a 


49 
41 
41 
4] 
41 
41 
41 
al 
41 
41 
41 
41 
a) 
41 
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50us800 GENREQ $78 4 =138¢ 8: 38: 19 YUETP SY. Bese ay eesos MAR: t ° (2) 
OFFC QEB1 1323 WORD “M<R2,R3, R4, he R6,R7, RB, R9,R10,R11> 
EB3 1304 SSNDOPR_S nS GBUF see mscl 
EBS 1325 ; generate a request 
ECS 1326 FAIL ate 1 $38. NORM “ ; check for failure 
ppgongeo "Bt DD OEC eyss aN 
FCSA CF 1 FB EC att: a WPREG. Check 
04 OECE 1327 


sdincnialinia 


10 | 
vOu=000" moSEGySYSTEN SERVICE rests cSuCE 8.c.> pgEpt9BG BO:4g:10 YANLAME Mee, YOLCBD agg. POOP HS, vo 
-SBTTL MODE_ID 


; FUNCTIONAL DESCRIPTION: 
Subroutine to identify the mode that an exit handler is in. 


4 } CALLING SEQUENCE: 
CALLS  #0,W*MODE_ID 


: INPUT PARAMETERS: 

3 MODE contains an address pointing to an ascii string desc. 
3 of the current CPU mode. 
M 


; OUTPUT PARAMETERS: 
; NONE 


“WORD “M<R2,R3,R4,R5> 
$FAO_S W*CS5,WAMESSAGEL,W°MSGL,MODE ; format the error message 
SPUTASG_S w°MSGVEC ; print the mode message 


PAM MOOOOOIOAAIAAANIOAOAOOOA 


D> oT nnn 
ss a ts 1 2 


ve) 


SVB BB BB BSE EAI NII AINA 


SOOONAUE WN OOOnNOu 


MM MMMM MMmMmmMmmmmrmrmrnicnevicry: 


SSE? 


00000059" FF 
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MODE _ 


oO 
uw 


2D 
NO 


COOOSCCOCOCOCOCOOOCOOOOOOOOOOOOOOOOO 


HNN HHH HHH HHH HHH HHH HAMmMmMmMmmmmmem co 
NPM ee ST 


SOOO FH WWW WOWWOWWOWWWWDONOAIAOOMMOOOOG 


' 
60 ; 
ee 
et 
i 
* 
f 
75 
i 
r 
a 


Macro ¥06-00 
-SEP- 74 UETPSY.SRCJSATSSSO5.MAR; 1 
OD_MSG_PRINT: 


LARA RASA RASS AALALALELE SALES SESE REESE EEE RSE E REESE S CEES EERE aa 


® w 
* PRINTS THE TEST MODULE BEGUN/SUCCESSFUL/FAILED MESSAGES * 
® (USING THE PUTMSG MACRO). * 

* 


LRARRASAAASLASALALEALELELASELS EELS SESE EEE EE EER EEE ETE ES EPEC eae 


PUTMSG <MOD_MSG_CODE,#2,TMN_ADDR, TMD -ADDR> PRINT MSG 
RSB ‘ewes D RETURN TO CALLER 


CHMRTN: 


ARR RARSRAAAAAAARAARARAAALALE SAL ELESEL ESAS ERE ESET ES ERE E ESE SEES SY 


® 
we Bee: ROUTINE. THIS ROUTINE GETS CONTROL WHENEVER 
A CMK CMEX math " cM eo free reyes 3° ISSUED 


® * 
® * 
* Y NODE. ® 
* A JUMP INDIRECT ON A FIELD SET U * 
* THE EFFECT OF RETURNING TO THE END OF THE MODE * 
* MACRO EXPANSION. . 
® ® 
® ® 


LRARRRRARASAAAAALALAALASASALELESALESSESAS SESE SEES ESE SEES R EERE REELS 


-WORD 0 NTRY MASK 

JMP @CHM_CONT ; RETURN TO MODE MACRO IN NEW MODE 
* RET INSTR WILL BE ISSUED IN EXPANSION OF ‘MODE FROM, ....° MACRO 

- END SATSSSO5 


me tt 


SA 


SOQOOOOCOOOOOOOOOOOOOSoSooO 
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- SATS SYSTEM SERVICE TESTS 
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Symbol table 


ae mas uN wes TO NNN ST OT MCMMM Sms mor 


< t Pad = 
ca ea ea ecae a@eaeaecae @Qaeaacacace fo ale alo 


NOOMNOSO—GDOOOOO TS VOR. O— OVO 


SGOoOQOOoooooooooooooooooooo 


w w 
a ou 
o oa be 
= =O » wz 
t = aa o--a. 
z= wt - [-«E 4 _ oaw 
ozoacoadt ww wun >= < vo ec ww wanozaae 
—JIwet JOTtae-2 7D =z=aze z2oa wz aad iw ~ WMOM— IMM 
@OOuw><4u Vuw 00 <«<a«wm S<s = © w OUuUOov - —2nw2zecoowac 
teettepeeeeenres NZZEO we <= Zz Oo SK Wwve  Wwuser §t ti tititsne 
ee PP I — t ww = | o2z «tz <« Se ty ww IMOMOoovew ii 
PAHARPAAAAAAAAA-— YMwwZae-wok we — § Aten Vww | Men IS > | MHABGAAA 
AMODOMDOODODOODOOMOOMOAM®MOO JjsZe- uv. Hee AMOD Br ZDVOOoOoOVVVVVVVVUEEZSE EE =z 
Meidtdetet ete ee ee ttt st tt ZOO OZ ZZOOu% “DODODwWOCCWOMMVNVNVNYVE ae eee 
WIM EM MMMM MEM MME OOO OOOO IEEE ESSESSESESEESESESESESs eZ ZzZzZzZzZ 
nee MPT 2) © sty ae oA aD war cucuevueuNTmsT 3 
oo oo°ooe oooooco CoCo oO oo OOOOOOoOOO 
ee 
ca ecacac @Qaeaeacacanc ace « Qa aacaeca cc = 


= 

Se TS ee « 

| Fa ea tet FFF = 

fab bh Fe =) ~N z 

- 59935-:... Pa a av ws 

o wn ANE Ove ~ Ww bw 4 ~~ Ww ~ =e lhl a 

=z ee ZZZzzZzZOaav —_ i) ww - —w t os a z "ea 

w ow DBOOwwW tt OA MUOWYaao wna “UI 83 - wx 

992244 @(epettreecerett sumnugeak zIe-Zz Onis wow —JZzuw t§ ~ £8 
<zzzwo RE EEL EL EL eS Ee ee ate 4 3 VMrOWMune &§- OW Swe “S25 
— errr ee RAARAAA P@A tieEze | Ov (m= me iti ect « Aan NAAO 
Se 2 @ ® Se BVEVVVUVUUOCUYUYYUSA LiF DOVuULurktzeoO ww mh ry fag te tatat god 
PP MAMMA SPP PPP Po Pt oot ree e+ + TT ft tetetete See eKnnnne Dw « 
PAPAAAAAAREC KE IEEEACEECa eee CMM ODOMDODD’Y VOVOGOVOGSOGOOSYVVUY VU OSOSCoWwww 
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SATSSSO5 Lent eee Sentene veeee _ Salen Baten Sep a19be Oc 529:47 LOETPSY  SREISATSSSOS.MAR; 1 ve 3) 
Symbol table 
» 1 
NAMST_DVI e 14 PRVSY OPER 3 ; 
NAM$W_DID ~ sh aro 6 4 
wore AOR 03 Q10$_ASTADR ® H 
NAME SIZE . 0 O1O$-ASTPRM ° 18 
s ye RE a 
= 
ot38 eR oe Q10$7FUNC ° 0¢ 
En ° Q10$-10SB . 
OP MS = 1 Q10$_NARGS - st: 
OPCSL_MS_MASK = 4 o108-f1 : § 
OPCSL “MS ~OTEXT = 9900001 a10$-P¢ : 6 
OPCSL_MS_RPLYID = 1 ht ee = 00 4 
OPCSL~MS"ROSTID = 0000 0108-94 = 09 
OPCSL “MS ~TEXT = 0000008 a10$-p5 = 00000 
SOSA NOE WICE = 0900004 QUENAMI OOO1AT R.—sO2 
OPE SRCNRIT Diets” = 09000008 QUENAMIL = 0000000€ 
OPESMCNMCOPERT = 09001098 UENAM OOOOIAF R02 
OPC SA-WA-OPERTO . 002 0900 SUE NARSL = 9000000 
OPE SHON OPERT2 = 0800000 RABSB_ RAC = 09900036 
ay : ae eH : Ese 
OPCSM”-NM” OPER = BoDORC OO $C7etO = 00000000 
CSM_NM_OPER4 = 00008000 RABSC_ = 0000001 
“NRTOPERG = 09020000 arte te = 09000028 
OPCS NR OPER e 9040000 RABSL “ROP = 90000004 
“NROPERS = 0910900 Rea Cheek OOO0COE Rs«G 
OPCSMCNA-PRINT = $0000005 RECO"SIZE = 0000 
OPCSMCNATTAPES = 90000004 RECI™ 0000028c Rs 02 
OPE ST Ne" ONARE = 09009 REC1_SIZE = 90000008 
OPCST_MS_ONAME = 00 44 REED" 9000 . 02 
OPESUTMSSTATU = 00000008 RECS size = 0 9 
OPCSU-MS~ STATUS = 0000000 RECO, 000029 
OPC$_RQSTABORT = 000 Bit - 90000bB 03 
Sere RaSTcAe = bo08 REG. CHECK 00000B08 R i 
OPC$~ROSTCMPL TE = 00058029 ~CHEC SF , 
OPES Ra CANCE = 00900005 REG” SAVE_AREA 00008 R 0 
OPC$"RQ. CANCEL = 90000005 SAVE. BR 
OPES ROT RST . $03 SATSSSO5 0000000 RG 04 
OPrS ROT TERM a htt SERV NAME 00171 R03 
ee RQ_ TERME = 00 b R ; VERE € fs 
OPMSG_DESC p 3 4 3 aunt There = 000071 Q 
TIONS 2 i SMOSR_DETJOB = 0000004 
Coa tbe ef R SMOSK_DISWAP = a 
OP RE SG GE R SMOSK~HOLD 2 3 
OP-RESC. LEN ° E SMOSK~INIPRI . D 
at ER 2 SMO$K~JOBLIN - é 
OO RAR R 4 SMOSK_JOBPRI = 
Me $Q PRIVMSK = f 5 SMOSK_PARAMS = 
PRINT AR 4 SMRSK ADDF IL : A 
PRIVAXSE $1 R 3 RSK-ALTER ° D 
paiy anes = 0 RRSK~CLS.J08 z 8 
PRVSV_BUGCHK : SMRSK CREJ 
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Symbol table etsy 8? 38:19 LOE T bey eRe TSAySSSOS MAR: 1 ° 3) 
SMRSK_DELETE = 1 STPS 19 a 4 
SMRSK_ INITIAL = STP6 DR 4 
SHRSK-PAUSE : stp SR be 
= 
SMRSK RELEASE = F 31e8 $6 R 4 
SMRSK_RMVJOB = STS$V_INHIB_MSG = f 
garae= 108 eines * HO000888 3 
SMRSK_SYNCJOB 2 1 SYM_DESC 195 R : 
G R SYM_NAME 0000192 R 
SMSG1 & SYSSCLOSE eeerenee GX 4 
SMSG_DESC 16 R SVSSCAIKRWL eeerenee GX 4 
SMSG_LEN = C SYSSCONNECT eeeeeeer GX 4 
SNDA 0000090 R 03 SYSSCREATE eeeneeee GX 4 
ACC 1 R 02 SYSSCREMBX eeenenee GX 4 
SNDACC$_CHAN = oe SYSSDASSGN eeeeeeee GX 4 
SNDACC$S_MSGBUF = 4 SYSSDELLOG eeerenee GX 4 
SNDACCS~NARGS = 0000000 SYSSDERLMB aeeeeree =X 4 
DE ~ OOOA9 R 3 SYSSDISCONNECT eeeneeee GX 4 
SNDERR 00038 R 2 SYSSERASE eeeeeeee GX 4 
SNDERR$_MSGBUF = 00000004 SYSSEXIT weeneeee GX 04 
SNDERRS_NARGS = 00000001 SYS$FAO aeeeeeee 4 
SNDO ~ 0000081 R 03 SYSSGETCHN aeeneeee GX 4 
SNDOPR OOOO03F R 02 SYSSHIBER eeeeeene GX 04 
SNDOPR$_CHAN = 00000008 SYSSPUT eanenene GX 04 
SNDOPRS$~MSGBUF = 00000004 SYSSPUTMSG eeeeeeee GX 04 
SNDOPR$_NARGS = 00000002 SYS$QI10 eeeeeeee GX 04 
SNDS —~ 000008D R 03 SYS$Q10W eereeeee GX 04 
00000046 R 02 SYSSSETPRN eeeneeee GX 4 
= 00000008 SYSSSETPRV eeereeee GX 4 
= 00000004 SYSSSNDACC eeeneneer GX 4 
= gy: SYSSSNDERR eeeeeere GX 4 
00000E59 R 04 SYSSSNDOPR eenenere GX 04 
tererere XxX 04 SYSSSNOSMB eeerenee GX 04 
900 O108 R 03 SYSSTRNLOG aerenere GX o% 
0 65 R 03 SYSSWAITFR eeererer GX 4 
= 00000018 SYSSWAKE aeeeeeee G 04 
88 0003D R NG TEST_ERROR 600001 ¢8 R 8s 
00000DB R 04 TEST_MOD_BEGIN B308 019 R 
8 8 DC R 04 TEST_MOD_FAIL ity & 0 
450 R 04 TEST_MOD_NAME 8 0000 R 0 
0 33 R 4 TEST_MOD_NAME_D 09 R 0 
75 R 4 TEST-MOD_ SUCC OOOOTF R 0 
28 R 4 TMD_ADDR 8 8 40 R 
8 4 TMN- ADDR 48 R 
AI R 4 TPI $ 00 k 
Fs R 4 TTNA 4F R $ 
47 R 4 TTUNIT 0000154 R 
7¢5 R 4 UETPS$_SATSMS 2 4 9 ; 
10C R 4 UETPS_TEXT = 00741 
13. R 4 U 134 R 02 
48 R 4 WARNING = 000 
3 R 4 YES 190 R 93 
a 4 YES_DESC 18A R 
aga R 4 
13D R 4 
16E R 4 
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ter eree ee eeeeeeen} 


! Psect synopsis ! 


$oemanmn se mranrememece 


PSECT name Al location PSECT _No. Attributes 


. ABS . 000 8 ( -) 00 ¢ 0) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS ( +) QO1 ¢ +1.) \NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
RODATA B ¢ 795.) § ( §°} NOPIC USR CON REL LCL NOSHR NOEXE RD NOWRT NOVEC LONG 
RWDATA Ht: ( 1535-3 ( -) NOPIC USR CON REL LCL NOSHR NOEXE AD WRT NOVEC LONG 
SATSSSO5 OOOOF20 ( 3872.) 04 ( 4.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC LONG 

tees ere see mec eae meen oe 2 

H Performance indicators H 
Phase Page faults CPU Time Elapsed Time 
Initialization a 00:00: 8.9 0:00:00.4 
i processing 1 3 0:00:00. 0: 8: 1 

58 0:00:24.7 0:00:38.1 

Synbol table sort 299 8: 0 g-38 OOO OF ba 
Symbol table output 39 $0;9 : 0.27 0:00: 0:38 
Psect synopsis output 3 Bp BR! 0. 3 0:00:00. 
Cross-reference cuiput g $4 0.0 0:00:00.00 
Assembler run totals 111 00:00:34.06 00:00:52.76 


The working set — was 2000 pages. 

144825 bytes (283 pages) of virtual memory were used to buffer the intermediate cod 

There were 90 pages of symbol table grace allocated to hold 1646 non-local and 19 feted symbols. 
1381 source Lines were read in Pass 1 prone ss 40 object records in Pass 2 

98 pages of virtual memory were used to define 88 macros. 


Guawceoseececoonssoseceesos$} 


Macro Library name Macros defined 


$255$DUA28: SHRLIBUETP.M -MLB;1 12 
$ 55S$DUA28: MLB; 1 § 
$583$DUA 8: SYSLIBIJSTARLET. MLB; 2 g 
TOTALS ‘all Libraries) 5 


2203 GETS were required to define 85 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:SATSSS05/0BJ=0BJ$:SATSSSO5 MSRC$:SATSSSO5S/UPDATE=(ENHS: SATSSSO5) +EXECMLS$/LIB+SHRLIBS:UETP/LIB 


PMENT CORPORATION 


BT13A-SE 
AND PROPRIETARY 


A A! AH- x. 
0471 Vax7vMS v4.0. 
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